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Figure 7.12 Freiburg. The largest clusters when percolate by means of (a) vertices, (b) edges, 
(c) cells and (d). Here (py,p?) = (0.7883, 0.7733), (pe,p2) = (0.6863, 0.6275), (pe, p2) = 
(0.4000, 0.5000) and (py, p53) = (0.4000, 0.3333) respectively for the cases of (a), (b), (c) and 
(d). 
Again, from (2 x 10) simulations we obtain for our Freiburg p, = 0.7400 + 0.1214, p, = 
0.6490 + 0.0787, p. = 0.5450 + 0.1276 and p, 0.3767 + 0.1190. 


§ 7.2 Graphs theory and its applications 


Gay and Preece (1975) study graphs on square lattices, represent them as matrices and then apply 
this to the study of networks of fluid distribution through pipes where there are branch flows and 
nodal pressures. Such a graph has n nodes, m = b—n+1 meshes, where b is the number of branches, 
and any one of its trees contains (n — 1) branches. The direction of a mesh is the direction of the 
link connected to it. Define the branch-mesh incidence matrix C = [Cr;Czr] = [Cr;U] and the 
node-datum incidence matrix B = [Br; Br] = [Br;0], where qj is 0, 1, or -1 when the branch i 
respectively is not in the mesh j, has the same-, or opposite direction; similarly, bj; is 0, 1, or -1 
when the branch 2 is not included in the node to datum path J, is going away from, or towards the 
datum node. Then V = E+e, J=1+1,V = ZJ, J = YV, where EF is the vector of branch 
pressure sources, #.e. pumps, e the vector of branch pressure rise, J the vector of branch flows due 
to the external inputs and outputs, 7 the vector of branch flows due to other causes. Then the mesh 
method has the solution i’ = (Ch ZrCr + Z,)71(E), — ChZ7Brl') and Ej, = Ci}. Ey + Ex, where 
y = [B,C], V’ =7'V, J=yJ', J! = [37] and V' = [Vz;Vz]. The node method, on the other 
hand, gives e' = (ATY A)-1(I' — ATYE). 

Operation research uses graphs to help in its search for optimum solutions. For example the 
Evolutionary Operation (EVOP) and its variant Rotating Square Evolutionary Operation (REVOP) 
use covering graphs on a body-centred lattice in two- or three dimensions (Lowe, 1964) — correspond- 
ing to the cases of considering two- or three factors respectively — in finding its solution. Simplex 
EVOP is another variation, where 2- and 3-factor regular simplexes are used, which has the advan- 
tage that it uses the least amount of experimental points. An n-factor regular simplex has (n + 1) 
points, in particular a 2-factor simplex is the equilateral triangle and a 3-factor simplex is the regu- 
lar tetrahedron. All of these methods are possible at number of factors higher than three, but the 
procedure becomes more complicated and can not be shown graphically. 

A graph is connected if it cannot be divided into two subgraphs without common vertices and 
edges. A linear combination of oriented edges, )*> a;e; where e; = +1, is a simple cycle if a; is 1, —1 
or 0. It is a cycle if a; are integers satisfying some linear relations, and a chain if they are arbitrary 
integers. 

If vectors from the origin to vertices A; follow the relation A = )\m,A;, then m,; are the 
barycentric coordinates of A. Here m; > 0, }>m; = 1 and A is the centre of gravity of the point 
masses A;. A convex linear hull of A; is then the space covered by changing m, to give all possible 
A’s. It is also known as a rectilinear-, Euclidean- or n-dimensional simplex. Simplices can simply 
be represented by the of their vertices. An n-dimensional simplex s? has n +1 (n — 1)-dimensional 
faces the i** one of which is where m; = 0. A k-dimensional face of s” is the set of those points of s” 
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for which n — k barycentric coordinates are zero, while the rest change such that the corresponding 
m, are non-negative and their sum is equal to unity. The number of k-d faces in s” is p41Cn41- 

The boundary of s” is the union of all its (n — 1)-d faces. The centre of a simplex is a point 
where m; =m. 
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§ 8. Conclusion 

To summarise, we have begun our study from the Voronoi network, and then went on to study 
continua and then tried to combine them together. I have suggested the idea that a percolation in 
continua can be represented by a percolation in a lattices the type of which depends on the attrition 
mechanism of the particles in that continuum, in other words the way they pack together. Even 
though percolation already models a great many natural phenomena, I think it will prove to underly 
the fundamental structure of a great many more, even of the Big Bang. Therefore I truly believe 
that a better percolation theory may be what is behind the working of the universe. 

Ihave written programs, and have listed here a full half of them which is already quite a lot in 
any programmer’s standard. This is because I try to write everything myself, and not to copy even 
when it comes to taking codes from programs that I have written myself in the past. I try to do it 
this way whenever possible, and as a result the various programs should have at least a few things 
out of common with each other. 

The results shown in Table 4.7 on page tuntp show that the percolation probability depends 
not only on the valence but also on the way in which the verticesdistribute themselves with relative 
to one another. From Figure 4.12 we can see that the comparative study of tilings is best done by 
looking at both the tiling itself and its covering lattice. The tilings 53[3°]8¢[3°]; and 53[3°]73[3"]r 
(number 24 and 27) look similar to each other and all the values of their p, are similar to the 
corresponding values of p,’s of the other; likewise the tilings 54[3°]74[3"J1 and 53[3°]86[3°}in (17 
and 21). The coverings of the tilings 33[3°]93[3°]r and 33[3°]93[3%]: (2 and 7) look different from 
each other even though they themselves are similar in appearance, and this is reflected in the values 
of the cell- and bond-probabilities. Both the tilings 43[34]10¢[3!°]; and 43[3*]10¢[3!°]m (6 and 9) 
as well as their coverings look different from each other, and it is not surprising to see that all their 
Pc values are quite different. 


§ 8.1 Suggestions for future work 


Jackson (1994) and Jafferali (1995) study filtration as stochastic process within porous media which 
they model as a Voronoi Tessellation. Here all the blockages are assumed to be of physical mechanism 
in nature. Schumacher (1996) asserts how in those cases where particles much smaller than the pores’ 
size come together to form clusters and thereby block the pores, there is involved an effect of Van der 
Waals electrostatic interaction between particles. Tiyapan (2003) formulates these into a problem 
of a continuum percolation within a network percolation. 

All particles large and small are subjected to the quantum-mechanical effect and exhibit at 
the same time both particle and wave characteristics. The smaller a particle is, however, the more 
prominent its wave nature stands out. For particles of the size range in nanometres the wave length 
involved, depending on their velocity and density, may be in the region of micrometres. If they pass 
through pores of diameters in the order of 10° metres their path will deflect from a straight line by 
the interference effect similar to that experienced by electron passing through slids in a screen. The 
blockage, therefore, will not be wholly random but depend to a certain degree on their quantum- 
mechanical properties. Moreover, once inside a pore these particles will undergo the effect of particles 
in confinement where, depending on their size relative to the size of the pores, their wavefunction 
may form some standing wave pattern. Then their probable location within the pore, and thus 
their future trajectory to other pores, will depend on the quantum-mechanical consideration. The 
de Broglie wave length is \ = h/p where h is the Planck’s constant and p the particle’s momentum. 
The standing wave equation is n(A/2) = D where n is a positive integer greater than zero and 
D the diameter of the pore, which gives the wavelength of the standing waves \ = 2D/n and the 
corresponding total energy of the particle E = h?n?/(8mD7”). The probability of finding the particle 
at the area of space dV within the pore is P = |Wsy|?6V (cf Walters, 1982) if the pore is totally 
enclosed. Here ~w is the standing probability wave of the particle. One needs to know this a for 
Voronoi and and irregularly-shaped pores This is what I intend to investigate further in the future. 
And it is also what I suggest people working in this area bear in mind. 
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§ A. 


Programs 


§ A.1 Object location 


CaoenNnaoa»hlwnr 


%4 Object2dSqua.m 


clear all; figure(1); clf; a=1; b=2; c=3; 
al=1; a2= 1; ci=10; c2=10; bi= ~2eai*5; b2=-2*a2*7; P=eye(6) ; 
DithVar=.1; NoiseVar=.1; Limit=10; N=1000; x=2; y=3; 


[Object,m] =0bjSqu(x,y) ; 


subplot (2,2,1),Draw(Object,m,Limit,’Object’,’c’); 
xlabel(’X’) ,ylabel(’Y’); axis equal; axis([-10 10 -10 10]); 


subplot (2,2,2) ,Layout (Object,Limit,m) ; 


Real=RealLin(x,y,N); zeta=[ai,a2,b1,b2,c1,c2]’; 


for Steps=1:N 


v =dither(DithVar); p =-b1/a1/2 +v; q =-b2/a2/2 +v; 


[Image ,n] =ImgMtx(round(p) ,round(q)) ; 


if Steps== 

Movei(:,1) =Image(:,1); Move1(:,2) 
elseif Steps==100 

Move2(:,1) =Image(:,1); Move2(:,2) 
elseif Steps==200 

Move3(:,1) =Image(:,1); Move3(: ,2) 
elseif Steps==300 

Move4(:,1) =Image(:,1); Move4(:,2) 
elseif Steps==400 

Moved(:,1) =Image(:,1); Moved(:,2) 
elseif Steps==500 

Move6(:,1) =Image(:,1); Move6(: ,2) 
elseif Steps==600 

Move7(:,1) =Image(:,1); Move7(:,2) 
elseif Steps==700 

Move8(:,1) =Image(:,1); Move8(: ,2) 
elseif Steps==800 

Move9(:,1) =Image(:,1); Move9(:,2) 
end; 


g =Compare (Object ,Image,m,n); e =noise(NoiseVar) ; 


if y>1 
x =[p*p,q*q,p,q,1,1]’; 


=Image(: ,2); 


=Image(: ,2); 


=Image(: ,2); 


=Image(: ,2); 


=Image(: ,2); 


=Image(: ,2); 


=Image(: ,2); 


=Image(: ,2); 


=Image(: ,2); 


Est (Steps,2) =-bi/ai/2; s2=Est (Steps, 2); 
Est (Steps,3) =-b2/a2/2; s3=Est (Steps,3) ; 
P =1/lambda*P* (eye (6) -(x*x’ *P) /(lambdatx’ *P*¥x) ) ; 


zeta =zetatP+*x*(y-x’*zeta); al =zeta(1, 


bi =zeta(3,:); b2 =zeta(4,:); 
else 


t =tt1; Est(Steps,1) =t; 


y =gte; 


lambda=.98; 


t=0; s2=0; s3=0; 


:); a2 =zeta(2,:); 


t =tt1; Est(Steps,1) =t; Est(Steps,2) =s2; Est(Steps,3) =s3; 


p =RandSrch(Limit) ; 
end; 
end; 


q =RandSrch(Limit); bi 


=-2*al*p; b2 


=-2#a2*q; 


Title1 =’X’; Title2 =’Y’; Title3 =’Phase Plane’; Title4 =’Object and Image’; 


XLab =’Steps’; YLab =’Mag’ 


subplot (2.5.3) ,compare2([Eet(: ,1) Est (:,2)], [Real(:,1) ,Real(: ,2)] ,Titled ,XLab ,YLab) 


subplot (2,2,4) ,compare2([Est(:,1),Est(:,3)], [Real(: 


figure(2); clf; 


subplot (3,3,1),Draw(Object,m,Limit,’Object’,’ 
subplot (3,3,2) ,Draw(Movei,n, Limit, N= 


subplot (3,3,3) ,Draw(Move2,n,Limit,’N 
subplot(3,3,4) ,Draw(Move3,n,Limit, ’N 
subplot (3,3,5) ,Draw(Move4,n,Limit,’N 
subplot (3,3,6) ,Draw(Move5,n,Limit,’N 
subplot (3,3,7) ,Draw(Move6,n,Limit,’N 
subplot (3,3,8) ,Draw(Move7 ,n,Limit,’N 
subplot (3,3,9) ,Draw(Move8,n,Limit,’N 
4 Compare.m 


function [y] =Compare (Object , Image ,m,n) 


y =0; 
for i=1:m 
for j=i:n 


if (Object (i,1)==Image(j,1))& (Object (i,2)== 


y =y +13 
end; 
end; 
end; 
4 compare2.m 


10’, 3 


»1) ,Real(: ,3)],Title2,XLab,YLab) 


); axis equal; axis([-10 10 -10 10]); 


axis equal; axis([-10 10 -10 10]); 


; axis 
; axis 
; axis 
; axis 
; axis 
; axis 
; axis 


equal ; 
equal; 
equal ; 
equal; 
equal ; 
equal ; 
equal ; 


Image (j ,2)) 


axis([-10 
axis([-10 
axis([-10 
axis([-10 
axis([-10 
axis([-10 
axis([-10 


function [] =compare2(datal, data2,graph_title,x_label sv. label) 
"5 


plot (datal(:,1),datai(: ,2),’-’ ,data2(: 


grid on; nie eee xlabel(x_label); 


% dither.m 


»1) data: 


52), 


een eae 


10 
10 
10 
10 
10 
10 
10 


-10 
-10 
-10 
-10 
-10 
-10 
-10 


10]); 
10]); 
10]); 
10]); 
10]); 
10]); 
10]); 
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74 function [dither]=dither(dith_variance) 

75 dith_limit=sqrt (3*dith_variance); dither=dith_limit*2*(.5-rand(1)); 
76 % Draw.m 

77 function []=Draw(Pict,Dim,Limit, Title, Colour) 

78 for i=1:Dim 

79 £111(( (Pict (i,1)-.5), (Pict (i,1)+.5), (Pict (i,1)+.5), (Pict (i,1)-.5)], 
80 [Pict (i,2)-.5), (Pict (i, 2)-.5), (Pict (i, 2)+. 5), (Pict (i, 2)+. 5)], Colour), hold on; 
81 end; 

82 axis([-Limit Limit -Limit Limit]); grid; title(Title) ; 

83 % ImgMtx.m 

84 function [yy,n]=ImgMtx (p,q) 

85 i=1; 

86 for x=(p-1): (pt1) 

87 for y=(q-1):(qt1) 


88 yy(i,l)=x; yy(i,2)=y;i=it+l1; 
89 end; 
90 end; 


91 n =size(yy,1); 

92 % Layout.m 

93 function []=Layout (Object ,Limit ,m) 
94 for i=-Limit:Limit 

95 x =itLimitt+1; 

96 for j=-Limit:Limit 


97 y =j+Limitt1; [Image,n] =ObjMtx(i,j); xx(x,1) =i; yy(y.1) =j; 
98 z(x,y) =Compare (Object ,Image,m,n) ; 

99 end; 

100 end; 


101 mesh(xx,yy,z); title(’Object Profile’); xlabel(’x’); ylabel(’y’); 
102 zlabel(’Pixels overlapped’); grid; 

103. % noise.m 

104 function [e]=noise(noise_sig) 

105 e=sqrt (noise_sig)*randn(1) ; 

106 6% ObjSqu.m 

107 function [yy ,n]=0bjSqu(p,q) 

108 i=1; 

109 for x=(p-1): (pt+1) 

110. = for _y=(q-1) : (qt1) 


111 yy(i,1) =x; yy(i,2) =y; i =it1; 
112 end; 
113 end; 


114 n =size(yy,1); 

115 % RealLin.m 

116 function [Real] =RealLin(x,y,N) 

117 for i=1:N 

118 Real(i,1) =i; Real(i,2) =x; Real(i,3) =y; 
119 end; 

120 % RandSrch.m 

121 function [y]=RandSrch(limit) 

122 y =limit*2*(.5-rand(1)); 


§ A.2 Network percolation, two dimensions 


1 % perco 

2 euae all; St=sum(100*clock); rand(’state’,St); CNa=200; Dim=2; X=rand(CNa,Dim) ; 
3 [Va,Ca]=voronoin(X); T=delaunayn(X); TN=size(T,1); VNa=size(Va,1); LB=0.05; 
4 UB=0.95; IXa=zeros(VNa,i1); V=[]; Count=0; VCNa=[]; 

5 for i=1:CNa, 

6 VCNa=[VCNa;size(Ca{i},2)]; 

7 end 

8 for i=1:VNa, 

9 if ((Va(i,1)>LB & Va(i,1)<UB) & (Va(i,2)>LB & Va(i,2)<UB)) 

10 V=[V;Va(i,:)]; Count=Countt+i; IXa(i,1)=Count; 

11 end 

12 end 


13 VN=size(V,1); VCN=[]; Count=0; Xa=X; x=; 
14 Tmp=sparse(1,CNa) ; 

15 for i=1:CNa, 

16 Include=1; 

17 for j=1:VCNa(i,1), 


18 if (IXa(Ca{i}(1,j) ,1)==0) 

19 Include=0; 

20 end 

21 end 

22 if (Include==1) 

23 Count=Countt+i; C{Count,1}=[]; VCN=[VCN;VCNa(i,1)]; 
24 for j=1:VCNa(i,1), 

25 C{Count ,1}(1, j)=IXa(Caf{i}(1,j),1); 

26 end 

27 X=[X;Xa(i,:)]; Tmp(1,i)=Count; 


28 end 


Ph.D. Thesis, UMIST. K N Tiyapan. Appendix A: Programs 


end 
CN=size(C,1); T2=[]; T3=0; 
for i=1:TN, 
TmpA=[]; 
for j=1:3, 
if (Tmp(T(i,j))) 
TmpA=([TmpA, Tmp(T(i,j))J; 
end 
end 
TmpB=size(TmpA, 2) ; 
if (TmpB==2) 
T2=[T2;TmpA] ; 
elseif (TmpB==3) 
T3=[T3;TmpA] ; 
end 
end 
% for cells 
B=[]; BXX=sparse(CN,CN); NeCMat=sparse(CN,CN); Count=0; 
for i=1:size(T2,1), 
Count=Countt1; B=[B;[T2(i,1),T2(i,2)]]; BXX(T2(i,1) ,T2(i,2))=Count; 
BXX(T2(i,2) ,T2(i,1))=Count; NeCMat(T2(i,1),T2(i,2))=1; NeCMat (T2(i,2) ,T2(i,1))=1; 
end 
for i=1:size(T3,1), 
for j=1:Din, 
for k=(j+1):(Dimt1), 
if (BXX(T3(i, j) ,T3(i,k) )==0) 
Count=Countt1; B=[B;[T3(i,j) ,T3(i,k)]]; BXX(T3(i,j) ,T3(i,k))=Count; 
BXX(T3(i,k) ,T3(i,j))=Count; NeCMat (T3(i,j),T3(i,k))=1; 
NeCMat (T3 (i,k) ,T3(i, j) )=1; 
end 
end 
end 
end 
BN=Count; A=X; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N); LBc=0.2; UBc=1-LBc; 
for i=1:N, 
if (A(i,1)<=LBc) 
LMat (1,i)=1; 
elseif (A(i,1)>=UBc) 


UMat (1,i)=1; 
end 
end 
NeMat=NeCMat; Blocked=randperm(CW) ; 
% for bonds 
NeBMat=sparse (BN, BN) ; 
for i=1:CN, 


[a,b,c]=find(BXX(i,:)); nc=size(c,2); 
for j=1:(nc-1), 
for k=(j+1):nc, 
NeBMat (c(1,j),c(1,k))=1; NeBMat(c(1,k) ,c(1,j))=1; 
end 
end 
end 
A=B; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N) ; 
for i=1:N, 
if ((X(A(i,1),1)<=LBc) | (X(A(i,2) ,1)<=LBc)) 
LMat (1,i)=1; 
elseif ((X(A(i,1),1)>=UBc) | (X(ACi,2) ,1)>=UBc)) 
UMat (1,i)=1; 
end 
end 
NeMat=NeBMat; Blocked=randperm(BW) ; 
ffor vertices 
Tmp=sparse (1, VN) ; 
for i=1:CN, 
for j=1:VCN(i,1), 
Tmp(1,C{i} (1, j))=1; 
end 
end 
V=(]; 
Count=0; 
for i=1:VN, 
if (Tmp(1,i)) 
Count=Count+1; Vv=[Vv;V(i,:)]; Tmp(1,i)=Count; 
end 
end 
VvN=size(Vv,1); 
for i=1:CN, 
for j=1:VCN(i,1), 
Cv{i} (1, j)=Tmp(1,C{i} (1,j)); 
end 
end 
E=[]; EVV=sparse(VN,VN); EVVv=sparse(VvN,VvN); NeVMat=sparse(VvN,VvN) ; 
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111 Countv=0; Count=0; 

112 for i=1:CN, 

113 Tmp=[Cv{i}(1,1:VCN(i,1)) ,Cv{i} (1,1)]; 
114 for j=1:VCN(i,1), 


115 vi=Tmp(1,j); V2=Tmp(1, (j+1)); 

116 if (NeVMat (V1, V2) ==0) 

117 Countv=Countvti; NeVMat(V1,V2)=1; NeVMat(V2,V1)=1; 
118 end 

119 end 


120.» Tmp=[C{i}(1,1:VCN(i,1)) ,c{i}(1,1)]; 
121. for j=1:VCN(i,1), 


122 Vi=Tmp(1,j); V2=Tmp(1, (j+1)); 

123 if (EVV (V1,V2)==0) 

124 Count=Count+i; E=(E;([Vi,V2]]; EVV(V1,V2)=Count; EVV(V2,V1)=Count; 
125 end 

126 end 

127 end 


128 EN=Count; A=Vv; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N); 
129 LBv=2+*LB; UBv=(UB-LB) ; 

130 for i=1:N, 

131 if (A(i,1)<=LBv) 


132 LMat (1,i)=1; 

133 elseif (A(i,1)>=UBv) 
134 UMat (1,i)=1; 

135 end 

136 end 


137 NeMat=NeVMat; Blocked=randperm(VvN) ; 

138 {for edges 

139 NeEMat=sparse(EN,EN); MEV=sparse(EN,VN); [a,b,c]=find(EVV); nc=size(c,1); 
140 for i=1:nc, 

141. MEV(c(i) ,a(i))=1; MEV(c(i) ,b(i))=1; 

142 end 

143 for i=1:VN, 

144 a=find(MEV(: ,i)); 

145 if (“isempty(a)) 


146 TmpN=size(a,1); Tmp=[a;a(1,1)]’; 

147 for j=1:TmpN, 

148 for k=(j+1):TmpN, 

149 NeEMat (Tmp(1,j),Tmp(1,k))=1; NeEMat (Tmp(1,k) ,Tmp(1,j))=1; 
150 end 

151 end 

152 end 

153 end 


154 A=E; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N); 
155 for i=1:N, 
156) if ((V(A(i, 1) ,1)<=LBv) | (V(A(i,2),1)<=LBv)) 


157 LMat (1,i)=1; 

158 elseif ((V(A(i,1),1)>=UBv) | (V(ACi,2) ,1)>=UBv)) 
159 UMat (1,i)=1; 

160 end 

161 end 


162 NeMat=NeEMat; Blocked=randperm(EN) ; 

163 % percol 

164 clear ClusA ClusB TSeries; NClusA=0; Perco=0; 
165 for i=1:N, 

166 Joined=0; 

167 for j=1:NClusA, 


168 if (ClusA{j ,3} (1,Blocked(1,i)) ~=0) 
169 ClusA{j,1}=ClusA{j,i}+1; ClusA{j,2}(1,Blocked(1,i))=1; 
170 ClusA{j ,3}=ClusA{j,3} | NeMat(Blocked(1,i),:); Joined=1; 
171 end 

172 if (Joined==1) 

173 for k=1:4, 

174 ClusB{1,k}=ClusA{j,k}; 

175 end 

176 NClusB=1; 

177 if (j==1) 

178 Tmp=ClusA; clear ClusA; 

179 for k=1:(NClusA-1), 

180 for 1=1:4, 

181 ClusA{k,1}=Tmp{(k+1) ,1}; 
182 end 

183 end 

184 elseif (j==NClusA) 

185 Tmp=ClusA; clear ClusA; 

186 for k=1: (NClusA-1), 

187 for 1=1:4, 

188 ClusA{k,1}=Tmp{k,1}; 

189 end 

190 end 

191 else 


192 Tmp=ClusA; clear ClusA; 


193 
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214 
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for k=1:(j-1), 
for 1=1:4, 
ClusA{k,1}=Tmp{k,1}; 
end 
end 
for k=j:(NClusA-1), 
for 1=1:4, 
ClusA{k,1}=Tmp{(k+1) ,1}; 
end 
end 
end 
for k=1:(NClusA-1), 
if (sum(ClusA{k,2} & ClusB{1,3}) ~= 0) 
ClusB{1,1}=ClusB{1,1}+ClusA{k,1}; ClusB{1,2}=ClusB{1,2} | ClusA{k,2}; 
ClusB{1,3}=ClusB{1,3} | ClusA{k,3}; ClusB{1i,4}=ClusB{1,4} | ClusA{k,4}; 
else 
NClusB=NClusB+t1; 
for 1=1:4, 
ClusB{NClusB ,1}=ClusA{k,1}; 
end 
end 
end 
if ((sum(full(LMat & ClusB{1,2}))7=0) & (sum(full(UMat & ClusB{1,2}))~=0)) 
ClusB{1,4}=1; Perco=1; 
end 
NClusA=NClusB; ClusA=ClusB; clear ClusB; break; 
end 
end 
if (Joined==0) 
NClusA=NClusAti; ClusA{NClusA, 1}=1; 
ClusA{NClusA, 2}=sparse(1,Blocked(1,i) ,1,1,N); 
ClusA{NClusA,3}=NeMat (Blocked(1,i),:); ClusA{NClusA,4}=0; 
end 
TSeries{i,i}=ClusA; TSeries{i,2}=Perco; 
end 
% Reverse 
Tmp=Blocked; Blocked=[] ; 
for i=1:N, 
Blocked=[Blocked,Tmp(1, (N-it1))]; 
end 
% simulations 
Nc=0; TSnap=[]; 
for i=1:N, 
if (TSeries{i,2}) 
Nc=i; break; 
end 
end 
Pc=Nc/N; Cord=mean(sum(NeMat,2)); 


§ A.3 Network percolation, three dimensions 


ANaahWNEH 


4 perco3d.m 
clear all; St=sum(100*clock); rand(’state’,St); CNa=300; Dim=3; 
X=rand(CNa,Dim); [Va,Ca]=voronoin(X); T=delaunayn(X); TN=size(T,1); 
VNa=size(Va,1); LB=0.05; UB=0.95; IXa=zeros(VNa,1); VCNa=[]; 
for i=1:CNa, 
VCNa=[VCNa;size(Ca{i},2)]; 
end 
MVCa=[]; 
for i=1:CNa, 
Tmp=ones(1,VCNa(i,1)); MVCa=[MVCa;sparse(Tmp,Ca{i},Tmp,1,VNa)]; 
end 
Vin=zeros(1,VNa) ; Count=0; 
for i=1:VNa, 
if ((max(Va(i,:))<1) & (min(Va(i,:))>0)) 
Count=Countt+1; Vin(1,i)=1; IXa(i,1)=Count; 
end 
end 
Tmp="Vin; Cin=ones(1,CNa) ; 
for i=1:CNa, 
if(sum(Tmp & MVCa(i,:))) 
Cin(1,i)=0; 
end 
end 
c=[]; count=0; VCN=[]; 
for i=1:CNa, 
if (Cin(i)) 
count=count+1; TmpN=size(Ca{i},2); 
for j=1:TmpN, 
C{count ,1} (1, j)=IXa(Caf{i} (1,j)); 
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30 end 

31 VCN(count ,1)=TmpN; 
32 end 

33 end 


34 CN=size(C,1); MidBCx=sparse(CNa,CNa); MidBCy=sparse(CNa,CNa) ; 
35 MidBCz=sparse(CNa,CNa); BLng=sparse(CNa,CNa) ; 

36 for i=1:TN, 

37 Tmp=[T(i,:) ,T¢i,1)]; 

38 for j=1:(Dim+i), 


39 for k=(j+1):(Dimt1), 

40 if ((Cin(1,Tmp(1,j)) | Cin(1,Tmp(1,k))) & ~BLng(j,k)) 

41 MidBCx(Tmp(1, j) ,Tmp(1,k) )=(X(k,1)4+X(j,1))/2; 

42 MidBCx(Tmp(1,k) , Tmp(1,j))=(X(k,1)+X(j,1))/2; 

43 MidBCy (Tmp(1, j) , Tmp(1,k))=(X(k,2)+X(j,2))/2; 

44 MidBCy (Tmp(1,k) , Tmp(1,j))=(X(k,2)+X(j,2))/2; 

45 MidBCz(Tmp(1, j) , Tmp(1,k) )=(X(k,3)+X(j ,3))/2; 

46 MidBCz(Tmp(1,k) , Tmp(1,j))=(X(k,3)+X(j,3))/2; 

47 dx=X(k, 1)-Xx(j »1) 3 dy=X(k,2)-X(j 32) 3 dz=X(k,3) -X(j 33) 3 
48 TmpA=sqrt (dx*dx + dy*dy + dz*dz); 

49 BLng (Tmp(1,) -Tmp(1/k))=TmpA; BLng(Tmp(1,k) ,Tmp(1,j))=TmpA; 
50 end 

51 end 

52 end 

53 end 


54 Fa=[]; Count=0; Fac=(]; 
55 for i=1:CNa, 
56 if (Cin(1,i)) 


BT FaC{i,1i}=0; FaC{i,2}=0; 
58 end 
59 end 


60 for i=1:(CNa-1), 
61 for j=(it1):CNa, 


62 TmpA=0; TmpB=0; 

63 if (Cin(1,i)) 

64 TmpA=1; 

65 end 

66 if (Cin(1,j)) 

67 TmpB=1 ; 

68 end 

69 if(TmpA | TmpB) 

70 Tmp=MVCa(i,:) & MVCa(j,:); 

71 if (sum(Tmp) ) 

72 [a,b]=find(Tmp); Count=Count+1; Fa{Count,1}=size(b,2); Fa{Count ,2}=b; 
73 Fa{Count ,3}=[MidBCx (i,j) ,MidBCy (i,j) ,MidBCz (i, j)]; 
74 if (TmpA) 

75 FaC{i,i}=FaC{i,i} + 1; FaC{i,2}=[FaC{i,2},Count]; 
76 FaC{i,3}{1,1}=i; FaC{i,3}{1,2}5j; 

77 end 

78 if (TmpB) 

79 FaC{j,1}=FaC{j,1} + 1; FaC{j,2}=[FaC{j,2},Count]; 
80 FaC{j,3}{1,1}=i; FaC{j,3}{1,2}5j; 

81 end 

82 end 

83 end 

84 end 

85 end 


86 FaN=size(Fa,1); V=01; 
87 for i=1:VNa, 
ss if(Vin(1,i)) 


89 v=[V; (Va(i,:),i]]; 
90 end 
91 end 


92 VN=size(V,1); Tmp=sparse(VNa, 1); 
93 for i=1:VN, 

94 Tmp (V(i,4) ,1) =i; 

95 end 

96 F=Fa; 

97 for i=1:FaN, 

98 for j=1:F{i,1}, 


99 F{i,2}(1,j)=Tmp(Fa{i,2}(1,j),1); 
100 end 
101 end 


102 FN=FaN; Fc=[]; 
103 count=0; 

104 for i=1:CNa, 
105 if (Cin(i)) 


106 count=countt1; FC{count,1}=FaC{i,1}; 

107 FC{count ,2}=FaC{i,2}; FC{count ,3}=FaC{i,3}; 
108 end 

109 end 


110 NghV=sparse(VN,VN); Tmp=F; TmpN=FN; 
111 for i=1:TmpN, 
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TmpA=Tmp{i,2}; x=[]; y=]; z=[]; TmpB=Tmp{i,1}; 
if (TmpB==3) 
for j=1:2, 
for k=(j+1):3, 
NghV(TmpA(1,j),TmpA(1,k))=1; NghV(TmpA(1,k) ,TmpA(1,j))=1; 
end 
end 
else 
for j=1:TmpB, 
sole; ¥Ctaph(1,3) 015 y=Ly;V(TmpA(1,j),2)]; z=[z;V(TmpA(i,j) ,3)]; 
en 


a=y (1) *(z(2)-z(3) ) ty (2) *(z (3) -z (1) ) ty (3) * (z(1) -z (2) ) ; 
b=z (1) * (x (2)-x (3) ) +z (2) *(x (3) -x (1) ) +z (3) * (x (1) -x (2) ) ; 
c=x (1) * (Cy (2) -y (3) ) +x (2) * Cy (3) -y (1) ) +x (3) * Cy (1) -y (2); 
K=1/sqrt(a*a + b*b + c¥#c); Th{1}=Kra; ThiQt=Keb. Th{3}=K+*c; Max=0; 
for j=1:3, 

if (Th{j}<Max) 

Max=Th{j}; jMax=j; 

end 
end 
if (jMax==1) 


Pry; 92; 
elseif (jMax==2) 


t=delaunay (p,q) ; 
for j=i:size(t,1), 
for k=1:3, 
t(j,k)=Tmpa(1,t(j,k)); 
end 
end 
Nt=size(t,1); TmpC=sparse(VN,VN) ; 
for j=1:Nt, 
TmpT=[t(j,:),t¢j,1)]; 
for k=1:3, 
TmpD=sort ((TmpT(1,k) ,TmpT(1, (k+1))]); 
TmpC (TmpD (1,1) ,TmpD (1,2) )=TmpC (TmpD (1,1) , TmpD(1,2)) +1; 
end 
end 
[k,1,m]=find(TmpC) ; 
for j=1:size(k,1), 
if (m(j) ==1) 
NghV(k(j),1(j))=1; NghV(1(j) ,.k(j) )=1; 
end 
end 
end 
end 
Fed=[] ; 
for i=1:FN, 
for j=1:2, 
Fed{i, j}=F{i, j}; 
end 
end 
for i=1:FN, 
Count=0; TmpN=Fed{i,1}; 
if (TmpN>3) 
Tmp=Fed{i,2}; TmpA=Tmp(1,1); Tmp=Tmp(1,2:TmpN); TmpN=TmpN-1; Count=Count+1; 
while (TmpN) 
a=TmpA(1,Count); TmpB=[]; Found=0; 
for j=1:TmpN, 
TmpC=Tmp (1, j); 
if (NghV(a,TmpC) & ~Found) 
TmpA=[TmpA,TmpC]; Found=1; 
else 
TmpB= [TmpB , TmpC] ; 
end 
end 
Tmp=TmpB; TmpN=TmpN-1; Count=Count+1; 
end 
Fed{i,2}=TmpA; 
end 
end 
LB2=2+LB; UB2=(UB-LB) ; 
% cells II 
Tmp=ones (1,CNa) ; 
for i=1:CNa, 
if ((max(X(i,:))>UB) | (min(X(i,:))<LB)) 
Tmp(1,i)=0; 
end 
end 
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194 a=find(Imp); TmpB=sparse(1,CNa); x=(]; 

195 for i=1:size(a,2), 

196 TmpB(1,a(1,i))=i; x(i,:)=X(a(i),:); 

197 end 

198 xn=size(x,1); TmpA=zeros(size(T)); TmpN=size(T, 1); 
199 for i=1:TmpN, 

200 for j=1:4, 


201 if ((Tmp(1,T(i,j)))) 

202 TmpACi,j)=TmpB(1,T(i,j)); 
203 end 

204 end 

205 end 


206 nghc=sparse (xn, xn) ; 

207 for i=1:TmpN, 

208 [a,b,c]=find(TmpA(i,:)); TmpB=size(c,2); 
209 if (TmpB>1) 


210 for j=1:(TmpB-1), 

211 for k=(j+1):TmpB, 

212 nghc(c(1,j),c(1,k))=1; nghe(c(1,k) ,c(1,j))=1; 
213 end 

214 end 

15 end 

216 end 


217 A=x; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N) ; 
218 for i=1:N, 
219 if (A(i,1)<=LB2) 


220 LMat (1,i)=1; 

221 elseif (A(i,1)>=UB2) 
222 UMat (1,i)=1; 

228 end 

224 end 


225 NeMat=nghc; Blocked=randperm(xn) ; 

226 % bonds II 

227 [a,b,c]=find(triu(nghc)); b=[a,b]; bn=size(b,1); Tmp=sparse(bn,xn) ; 
228 for i=1:bn, 

229 Tmp(i,b(i,1))=1; Tmp(i,b(i,2))=1; 

230 end 

231 nghb=sparse (bn, bn) ; 

232 for i=1:xn, 

233 «=a=find(Tmp(:,i)); 

234 «if (~isempty(a)) 


235 TmpN=size(a,1); 

236 for j=1: (TmpN-1), 

237 for k=(j+1):TmpN, 

238 nghb(a(j,1),a(k,1))=1; nghb(a(k,1) ,a(j,1))=1; 
239 end 

240 end 

241 end 

242 end 


243 A=b; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N) ; 
244 for i=1:N, 
245 if ((x(A(i,1),1)<=LB2) | (x(A(i,2),1)<=LB2)) 


246 LMat (1,i)=1; 

247 elseif ((x(A(i,1),1)>=UB2) | (x(A(i,2),1)>=UB2)) 
248 UMat (1,i)=1; 

249 end 

250 end 


251 NeMat=nghb; Blocked=randperm(N) ; 

252 % vertices II 

253 [a,b,c]=find((NghV)); Tmp=sparse(1, VN) ; 

254 for i=1i:size(a,1), 

255 Tmp(1,b(i,1))=1; 

256 end 

257 d=find(Tmp); TmpN=size(d,2) ; 

258 for i=1:TmpN, 

259 Tmp(1,d(1,i))=i; 

260 end 

261 for i=1:size(a,i), 

262 a(i,1)=Tmp(1,a(i,1)); b(i,1)=Tmp(1,b(i,1)); 
263 end 

264 nghv=sparse(a,b,c,TmpN,TmpN); TmpA=(]; 

265 for i=1:TmpN, 

266 TmpA(Tmp(i,d(i)),:)=V(i,1:3); 

267 end 

268 A=TmpA; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N); 
269 for i=1:N, 

270 if (A(i,1)<=LB2) 


271 LMat (1,i)=1; 

272 elseif (A(i,1)>=UB2) 
273 UMat (1,i)=1; 

274 end 


275 end 
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NeMat=nghv; Blocked=randperm(N) ; 

4 edges II 

[a,b,c]=find(triu(NghV)); E=[a,b]; EN=size(E,1); Tmp=sparse(EN,VN) ; 
for i=1:EN, 


Tmp(i,E(i,1))=1; Tmp(i,E(i,2))=1; 
end 
NghE=sparse (EN, EN) ; 
for i=1:VN, 
a=find(Tmp(: ,i)); 
if (~isempty (a) ) 
TmpN=size(a,1); 
for j=1:(TmpN-1), 
for k=(j+1):TmpN, 
NghE(a(j,1),a(k,1))=1; NghE(a(k,1),a(j,1))=1; 
end 
end 
end 
end 
A=E; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N) ; 
for i=1:N, 
if ((V(A(i,1) ,1)<=LB2) | (V(ACi,2) ,1)<=LB2)) 
LMat (1,i)=1; 
elseif ((V(A(i,1),1)>=UB2) | (V(A(i,2),1)>=UB2)) 
UMat (1,i)=1; 
end 
end 
NeMat=NghE; Blocked=randperm(N) ; 


4 percolation 
clear ClusA ClusB TSeries; NClusA=0; Perco=0; 
for i=1:N, 
Joined=0; 
for j=1:NClusA, 
if (ClusA{j ,3} (1,Blocked(1,i)) ~=0) 
ClusA{j ,1}=ClusA{j,i}+1; ClusA{j,2}(1,Blocked(1,i))=1; 
ClusA{j ,3}=ClusA{j,3} | NeMat(Blocked(1,i),:); Joined=1; 
end 
if (Joined==1) 
for k=1:4, 
ClusB{1,k}=ClusA{j,k}; 
end 
NClusB=1; 
if (j==1) 
Tmp=ClusA; clear ClusA; 
for k=1:(NClusA-1), 
for 1=1:4, 
ClusA{k,1}=Tmp{(k+1) ,1}; 
end 
end 
elseif (j==NClusA) 
Tmp=ClusA; clear ClusA; 
for k=1:(NClusA-1), 
for 1=1:4, 
ClusA{k,1}=Tmp{k,1}; 
end 
end 
else 
Tmp=ClusA; clear ClusA; 
for k=1:(j-1), 
for 1=1:4, 
ClusA{k,1}=Tmp{k,1}; 
end 
end 
for k=j:(NClusA-1), 
for 1=1:4, 
ClusA{k,1}=Tmp{(k+1) ,1}; 
end 
end 
end 
for k=1:(NClusA-1), 
if (sum(ClusA{k,2} & ClusB{1,3}) ~= 0) 
ClusB{1,1}=ClusB{1,1}+ClusA{k,1}; ClusB{1,2}=ClusB{1,2} | ClusA{k,2}; 
ClusB{1,3}=ClusB{1,3} | ClusA{k,3}; ClusB{1,4}=ClusB{1,4} | ClusA{k,4}; 
else 
NClusB=NClusB+t1; 
for 1=1:4, 
ClusB{NClusB ,1}=ClusAf{k,1}; 
end 
end 
end 
if ((sum(full(LMat & ClusB{1,2}))~=0) & (sum(full(UMat & ClusB{1,2}))~=0)) 
ClusB{1,4}=1; Perco=1; 
end 
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NClusA=NClusB; ClusA=ClusB; clear ClusB; break; 
end 
end 
if (Joined==0) 
NClusA=NClusAt+i; ClusA{NClusA, 1}=1; 
ClusA{NClusA, 2}=sparse(1,Blocked(1,i) ,1,1,N); 
ClusA{NClusA,3}=NeMat (Blocked(1,i),:); ClusA{NClusA,4}=0; 
end 
TSeries{i,i}=ClusA; TSeries{i,2}=Perco; 
end 
% Reverse 
Tmp=Blocked; Blocked=[]; 
for i=1:N, 
Blocked= [Blocked ,Tmp (1, (N-i+1))]; 
end 
% simulations 
Nc=0; 
for i=1:N, 
if (TSeries{i,2}) 
Nc=i; break; 
end 
end 
Pc=Nc/N; Cord=mean(sum(NeMat,2)); 


§ A.4 Network percolation, 2—d section 


aANIaahuwnre 


oO 


% section 
Mvc=[]; 
for i=1:CN, 
Tmp=ones(1,VCN(i,1)); MVC=[MVC;sparse(Tmp,C{i},Tmp,1,VN)]; 
end 
CE=[]; 
for i=1:EN, 
Tmp=MVC(: ,E(i,1)) & MVC(: ,E(i,2)); 
if (sum(Tmp) ) 
TmpA=find(Tmp)’; TmpN=size(TmpA,2); CE{i,1}=TmpN; CE{i,2}=TmpA; 
end 
end 
ie=[]; je=0; ke=(1; 
for i=1:EN, 
ie(i,1)=V(E(i,2) ,1)-V(E(i,1) 1); je(i, 1)=VEG,2) ,2)-V(EG,1) ,2); 
ke(i,1)=V(E(i,2) ,3)-V(E(i, 1) ,3); 
end 
a=1; b=.01; cc=0; d=-.5; v=[]; vc=[]; count=0; 
for i=1:EN, 
Tmp=(atie (i) tb*je(i)+cctke(i)); 
if (Tmp) 
vi=E(i,1); x1=V(v1,1); yi=V(v1,2); z1=V(v1,3); TmpA=(a¥*x1+b*y1l+cc*z1t+d) ; 
v2=E(i,2); x2=V(v2,1); y2=V(v2,2); z2=V(v2,3); t=-TmpA/Tmp; 
if((t>=0) & (t<=1)) 
x=xit(x2-x1)#*t; y=yit(y2-y1)*t; z=z1i+(z2-z1)*t; count=count+1; 
v(count,:)=[x,y,z]; vC{count ,1}=CE{i,1}; vC{count ,2}=CE{i, 2}; 
end 
else 
if(~TmpA) % both nom and denom = 0 
count=countt1; v(count,:)=[x1,yi,zi]; vC{count,1}=CE{i,1}; 
vC{count ,2}=CE{i,2}; count=count+1; v(count,:)=[x2,y2,z2]; 
vC{count ,i}=CE{i,1}; vC{count,2}=CE{i,2}; 
end 
end 
end 
vn=count; cC=sparse(CN,1); count=0; 


for i=1:vn, 
for j=i:vC{i,1}, 
if (~cC(vC{i, 2} (j))) 
count=count+1; cC(vC{i,2}(j) ,1)=count; 
end 
end 
end 
cn=count; vc=vC; 
for i=1:vn, 
for j=i:vc{i,1}, 
veti,2} (1, j)=cC(vC{i ,2} (j)) ; 
end 
end 
c=[]; 
for i=1:cn, 
ce{i,1}=0; c{i,2}=0; 
end 
for i=1:vn, 
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for j=i:vc{i,1}, 
c{vc{i, 2} (j) ,1}=cf{vc{i,2}(j) ,1}4+1; cf{vc{i,2}(j) ,2}=[cl{vc{i,2}(j) ,2},i]; 
end 
end 
for i=1:cn, 
Tmp=[]; 
for j=i:cfi,1}, 
Tmp=[Tmp; v(c{i,2}(j) ,:) ,c{i, 23 (j)]; 
end 
TmpA=min(Tmp,[],1); TmpB=max(Tmp,[],1); [TmpC,TmpD]=min(TmpB-TmpA) ; 
if (TmpD==1) 
TmpA=Tmp(:,2); TmpB=Tmp(: ,3) ; 
elseif (TmpD==2) 
TmpA=Tmp(:,1); TmpB=Tmp(: ,3) ; 
else 
TmpA=Tmp(:,1); TmpB=Tmp(: ,2) ; 
end 
TmpC=delaunay(TmpA,TmpB) ; TmpN=size(TmpC,1) ; 
for j=1:TmpN, 
for k=1:3, 
TmpC (j ,k)=Tmp(TmpC (j,k) ,4); 
end 
end 
TmpA=sparse (vn, vn) ; 
for j=1:TmpN, 
for k=1:2, 
for m=(kt1):3, 
TmpA (TmpC (j,k) , TmpC (j ,m) )=TmpA(TmpC (j ,k) , TmpC(j ,m) ) +1; 
TmpA (TmpC (j ,m) , TmpC (j,k) )=TmpA(TmpC (j ,m) , TmpC(j ,k)) +1; 
end 
end 
end 
[x,y,z]=find(TmpA) ; TmpB=[]; TmpC=[]; 
for j=1:size(x,1), 
if(z(j)==1) 
TmpB=(TmpB;x(j),y(j)]; TmpC(y(j) ,1)=1; 
end 
end 
TmpA=[]; 
for j=1:size(TmpC,1), 
TmpA{j,1}=01; 
end 
for j=1:size(TmpB,1), 
TmpA{TmpB(j,1),1}=[TmpA{TmpB(j,1) ,1},TmpB(j,2)]; 
end 
Tmp=Tmp (1,4); TmpB=Tmp; 
TmpC=sparse(Tmp,i,i1,vn,1); count=c{i,1}-1; 
while (count>0) , 
if (~ (ImpC (TmpA{Tmp} (1) ,1))) 
Tmp=TmpA{Tmp} (1) 3 TmpB=[TmpB,Tmp]; TmpC(Tmp,1)=1; 
else 
Tmp=TmpA{Tmp}(2) ; TmpB=[TmpB,Tmp]; TmpC(Tmp,1)=1; 
end 
count=count-1; 
end 
c{i,3}=TmpB; 
end 


for i=1:cn, 

Tmp=[0,0,0]; 

for j=i:cfi,1}, 

Tmp=Tmptv(c{i,2}(j) .:)3 

end 

Tmp=Tmp/c{i,1}; c{i,4}=Tmp; 
end 
Tmp=sqrt (a*atb*btcc¥cc); u=[a/Tmp,b/Tmp,cc/Tmp]; uzp=u; ux=[1,0,0]; 
Tmp=cross(u,ux); TmpA=sgrt (Tmp (1) *Tmp (1) +Tmp (2) *Tmp (2) +Tmp (3) *Tmp (3) ) ; 
uyp=Tmp/TmpA; uxp=cross(uyp,uzp) ; ieluxp,O-uyp,0;asp0 00:04) 
vp=(R*[v’ ;ones(1,vn)])’?; vp=vp(:,1:2); ad=min(vp,[],1); 
vp=vp- [ad (1) *ones (vn, 1) ,ad(2)*ones(vn,1)];; ae 
for i=1:cn, 

Tmp=R*[c{i,4}’;1]; Tmp=Tmp(1:2)’-ad; c{i,5}=Tmp; cs=[cs;Tmp]; 
end 
LB=min(vp(: ,1)); UB=max(vp(:,1)); Tmp=UB-LB; LBv=LB+0.1*Tmp; 
UBv=UB-LBv; Tmp=min(cs(:,1)); LB=min(cs(:,1)); UB=max(cs(:,1)); 
Tmp=UB-LB; LBc=LB+0.1*Tmp; UBc=UB-LBc; 
% cell 
cvm=sparse(cn,vn) ; 
for i=1:cn, 

for j=i:cfi,1}, 

cvm(i,c{i,2}(j))=1; 

end 

end 
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137 nghc=sparse(cn,cn) ; 
138 for i=1:(cn-1), 
139 «© for j=(iti):cn, 


140 Tmp=find(cvm(i,:) & cvm(j,:)); 
141 if (“isempty (Tmp) ) 

142 TmpN=size(Tmp, 2) ; 

143 if (TmpN>1) 

144 for k=1:TmpN, 

145 nghc(i,j)=1; nghc(j,i)=1; 
146 end 

147 end 

148 end 

149 end 

150 end 


151 N=cn; LMat=sparse(1,N); UMat=sparse(1,N) ; 
152 for i=1:cn, 
153» if (cs (i, 1) <=LBc) 


154 LMat (1,i)=1; 

155 end 

156 = if (cs (i, 1) >=UBc) 

157 UMat (1,i)=1; 

158 end 

159 end 

160 NeMat=nghc; Blocked=randperm(N) ; 
161 % bond 


162 [p,q,r]=find(triu(nghc)); b=[p,q]; bn=size(b,1); bcm=sparse(bn,bn) ; 
163 for i=1:bn, 

164 bem(i,b(i,1))=1; bem(i,b(i,2))=1; 

165 end 

166 nghb=sparse (bn, bn) ; 

167 for i=1:cn, 

168 Tmp=find(bem(: ,i)); 

169 if (~isempty(Tmp)) 


170 TmpN=size(Tmp,1) ; 

171 for j=1: (TmpN-1), 

172 for k=(j+1):TmpN, 

173 nghb(Tmp(j) ,Tmp(k))=1; nghb(Tmp(k) , Tmp(j))=1; 
174 end 

175 end 

176 end 

177 end 


178 N=bn; LMat=sparse(1,N); UMat=sparse(1,N) ; 
179 for i=1:bn, 
180 if ((cs(b(i,1),1)<=LBc) | (cs(b(i,2) ,1)<=LBc)) 


181 LMat (1,i)=1; 

182 end 

183 if ((cs(b(i,1),1)>=UBc) | (cs(b(i,2) ,1)>=UBc)) 
184 UMat(1,i)=1; 

185 end 

186 end 


187 NeMat=nghb; Blocked=randperm(N) ; 
188 % vertice 

189 nghv=sparse(vn, vn) ; 

190 for i=1:cn, 

191 Tmp=[c{i,3},cf{i,3}(1)]; 

192 for j=i:cfi,1}, 


193 nghv(Tmp(j) ,Tmp(jt+1))=1; nghv(Tmp(jt1) ,Tmp(j))=1; 
194 end 
195 end 


196 LMat=sparse(1,vn); UMat=sparse(1,vn) ; 
197 for i=1:vn, 
198 if (vp(i,1)<=LBv) 


199 LMat (1,i)=1; 

200 end 

201. »=if (vp(i,1)>=UBv) 

202 UMat (1,i)=1; 

203 end 

204 end 

205 N=vn; NeMat=nghv; Blocked=randperm(N) ; 
206 4% edge 


207 [p,q,r]=find(triu(nghv)); e=[p,q]; en=size(e,1); evm=sparse(en,en) ; 
208 for i=1:en, 

209 evm(i,e(i,1))=1; evm(i,e(i,2))=1; 

210 end 

211 nghe=sparse(en,en) ; 

212 for i=1i:vn, 

213 Tmp=find(evm(: ,i)); 

214 =if(~isempty (Tmp) ) 


215 TmpN=size(Tmp,1) ; 
216 for j=1:(TmpN-1), 
217 for k=(j+1):TmpN, 


218 nghe (Tmp(j) ,Tmp(k))=1; nghe(Tmp(k) ,Tmp(j))=1; 
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end 
end 
end 
end 
N=en; LMat=sparse(1,N); UMat=sparse(1,N) ; 
for i=1:en, 
if ((vp(e(i,1),1)<=LBc) | (vp(e(i,2),1)<=LBc)) 
LMat (1,i)=1; 
end 
if ((vp(e(i,1),1)>=UBc) | (vp(e(i,2) ,1)>=UBc)) 
UMat (1,i)=1; 
end 
end 
NeMat=nghe; Blocked=randperm(N) ; 


§ A.5 Continuum percolation of n-gons 


aANDaoahwWwNr 


4 regpoly.m 
clear all; St=sum(100*clock); rand(’state’,St); Size=10; N=40; n=11; Angle=2*pi/n; 
X=Size*rand(N,2); TwoPi=2*pi; Rad=TwoPi*rand(N,1); 
R=sqrt (1/(n*sin(Angle/2) *cos(Angle/2))) ; 
for i=1:N, 
for j=0:(n-1), 
Tmp=Rad(i,1)+j*Angle; V{i}{1, (j+1)}=[(X(i,1)+R*cos(Tmp)) , (X(i,2)+R*sin(Tmp))]; 
end 
end 
Tmp=V{1}{1,1}+(V{1}{1, 2}-V{1}{1,1})/2; dx=Tmp(1,1)-X(1,1); dy=Tmp(1,2)-X(1,2); 
r=sqrt (dx*dx + dy*dy); clf; hold on; 


for i=1:N, 
x=[]; y=01; 
for j=i:n, 
bev, 90,015 y=ly;V{i}{1,j}(1,2)]; 
en 
le Man eee a y=Ly;V{i}{1,1}(1,2)]; plot(x,y); 
en 


plot ([0,Size,Size,0,0],[0,0,Size,Size,0]); axis equal; axis off; 
for i=1:N, 
Tmp=[]; 
for j=i:n, 
Tmp=(Tmp; [j ,V{it{1,j}(1,2)]]; Tmp=sortrows(Tmp, 2) ; 
end 
end 
T=delaunay (X(:,1),X(:,2)); NT=size(T,1); D=sparse(N,N); Ov=sparse(N,N) ; 
Ovi=sparse(N,1); Pair=[]; Limbo=[]; Oclock=sparse(NT,NT) ; 
for i=1:NT, 
Tmp=[T(i,:) ,T(i,1)]; 
for j=1:3, 
cl=Tmp (1,5); c2=Tmp(1,(j+1)); dx=X(c2,1)-X(c1,1); dy=X(c2,2)-X(c1,2) ; 
TmpA=sqrt (dx*dx + aysdy) ; D(c1,c2)=TmpA; D(c2,c1)=TmpA; 
Pair=[Pair; [c1,c2;c2,c1]]; 
if (TmpA<=(2*r) ) 
Ov(c1,¢2)=1; Ov(c2,c1)=1; Ovi(ci,1)=1; Ovit(c2,1)=1; 
elseif (TmpA<=(2*R) ) 
Limbo=[Limbo; [c1,c2;c2,c1]]; 
end 
end 
TmpB=atan (abs (dy/dx)) ; 
if (dx>=0) 
if(dy>=0) % Quadrant 1 
Oclock(c1,c2)=TmpB; Oclock(c2,c1)=pi+TmpB; 
else % Quadrant 4 
Oclock(c1,c2)=TwoPi-TmpB; Oclock(c2,c1)=pi-TmpB; 
end 
else 
if(dy>=0) % Quadrant 2 
Oclock(c1,c2)=pi-TmpB; Oclock(c2,c1)=TwoPi-TmpB; 
else % Quadrant 3 
Oclock(c1,c2)=pi+TmpB; Oclock(c2,c1)=TmpB; 
end 
end 
end 
Tmp=Angle/2; Star=[]; 
for i=1:N, 
TmpA=[]; TmpB=Rad(i,1); 
for j=i:n, 
TmpA=[TmpA,mod((TmpB + (j-1)*Angle + Tmp) ,TwoPi)]; 
end 
Star=([Star;TmpA] ; 
end 
Wobble=sparse(N,N); jWobble=sparse(N,N); TmpN=size(Limbo,1); 
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64 
65 


for i=1:TmpN, 
Min=10; TmpA=Limbo(i,1); TmpB=Limbo(i,2); jMin=j; 
for j=i:n, 
Tmp=Star (TmpA, j) -Oclock(TmpA, TmpB) ; 
if (abs (Tmp) <abs (Min) ) 
Min=Tmp; jMin=j; 
end 
end 
Wobble (TmpA,TmpB)=Min; jWobble(TmpA,TmpB)=jMin; 
end 
Tmp=Angle/2; 
for i1=1:2:TmpN, 
TmpA=Limbo(i,1); TmpB=Limbo(i,2) ; 
if (abs (Wobble (TmpB,TmpA)) >= abs (Wobble (TmpA, TmpB) ) ) 
TmpA=Limbo((i+1) ,1); TmpB=Limbo((it1) ,2); 
end 
J=jWobble(TmpA,TmpB); v{1}=V{TmpA}{1, J}; 
if (J==n) 
v{2}=V{TmpA} {1,1}; 
else 
v{2}=V{TmpA} {1, (J+1)}; 
end 
J=jWobble(TmpB,TmpA); v{3}=V{TmpB}{1, J}; 
if (J==n) 
v{4}=V{TmpB} {1,1}; 
else 
v{4}=V{TmpB}{1, (J+1)}; 
end 
Max=0; 
if (Wobble (TmpA, TmpB) >=0) 
vMin=v{1i}; 
else 
vMin=v{2}; 
end 
di=R*cos (Tmp-abs (Wobble (TmpA,TmpB))) ; TmpD=(X(TmpA,1)-X(TmpB,1)); 
a=(X(TmpA,2)-X(TmpB,2))/TmpD; b=(X(TmpA,1) *X(TmpB, 2) -X(TmpB,1) *X(TmpA, 2) ) /TmpD; 
al=a; bl=vMin(1,2)-al*vMin(1,1); x3=v{3}(1,1); y3=v{3}(1,2); x4=v{4}(1,1); 
y4=v{4} (1,2); TmpD=x3-x4; p=(y3-y4)/TmpD; q=(x3*y4-x4*y3)/TmpD; TmpD=al1-p; 
x=(q-b1)/TmpD; y=(al*q-bi*p)/TmpD; dx=x-X(TmpB,1); dy=y-X(TmpB, 2) ; 
r2=sqrt (dx*dx + dy*dy); d2=r2*cos(Tmp-abs(Wobble(TmpB,TmpA))); d=D(TmpA,TmpB) ; 
if ((ditd2) >=d) 
Ov(TmpA,TmpB)=1; Ov(TmpB,TmpA)=1; Ovi(TmpA,1)=1; Ovi(TmpB,1)=1; 
end 
end 
Clus=0v; 
for i=1:N, 
Clus(i,i)=1; 
end 
NClus=size(Clus,1); ClusA=Clus(1i,:); NClusA=1; 
for i=2:NClus, 
Joined=0; 
for j=1:NClusA, 
TmpC=Clus(i,:) | ClusA(j,:); 
if(sum(Clus(i,:) & ClusA(j,:))) 
ClusA(j,:)=TmpC; ClusB=ClusA; ClusA=TmpC; NClusB=NClusA; 
NClusA=1; Joined=1; break; 
end 
end 
if (~ Joined) 
ClusA=[ClusA;Clus(i,:)]; NClusA=NClusAt1; 
else 
for j=1:NClusB, 
if (sum(ClusA(1,:) & ClusB(j,:))) 
ClusA(1,:)=ClusA(1,:) | ClusB(j,:); 


else 
ClusA=[ClusA;ClusB(j,:)]; NClusA=NClusAt+1; 
end 
end 
end 

end 
Left=sparse(1,N); Right=sparse(1,N); Margin=0.1*Size; 
for i=1:N, 


if (X(i,1)<=Margin) 
Left(1,i)=1; 
elseif (X(i,1)>=(Size-Margin) ) 
Right (1,i)=1; 
end 
end 
Plated=0; 
for i=1:NClusA, 
if(sum(Left & ClusA(i,:)) & sum(Right & ClusA(i,:))) 
Plated=1; break; 
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end 
end 


§ A.6 Tilings 


Caonoa«»hlwnr 


4 tiling.m; NB. must run one of the data below first. 
qn=size(q,1); in2n=size(in2,1); in3n=size(in3,1); p=(]; 
p{1,1}=[0;0]’; p{1,2}=sz; r=; s=O0; 
for i=1:sz, 
r(1,i)=dx(m(i)); s(1,i)=dy(n(i)); 
end 
p{i,3}=r’; p{1,4}=s’; iin=size(ii,1); Tmp=ones(iin,1); 
TmpA=sparse(Tmp,ii(:,1),Tmp,1,sz); Tape Ls TmpB=[]; TmpC=[]; count=0; 
for i=1:sz, 
if (~TmpA(i)) 
count=count+i; Tmp=[Tmp;i,count]; TmpB=[TmpB;r(i)]; TmpC=[TmpC;s(i)]; 
end 
end 
p{2,1}=Tmp; p{2,2}=count; p{2,3}=TmpB; p{2,4}=TmpC; iiin=size(iii,1); 
Tmp=ones(iiin,1); TmpA=sparse(Tmp,iii(: ,1) ,Tmp,1,sz); 
Tmp=[]; TmpB=[]; TmpC=[]; count=0; 
for i=1:sz, 
if (~TmpA(i)) 
count=count+1; Tmp=[Tmp;i,count]; TmpB=[TmpB;r(i)]; TmpC=[TmpC;s(i)]; 
end 
end 


p{3,1}=Tmp; p{3,2}=count; p{3,3}=TmpB; p{3,4}=TmpC; iv=[ii,2*ones(iin,1)]; 
for i=1:iiin, 
Tmp=0; 
for j=1:iin, 
if (iii(i,1)==ii(j,1)) 
Tmp=1; 
end 
end 
if (~Tmp) 
iv=[Livj;iii(i,:),3]; 
end 
end 
ivn=size(iv,1); Tmp=ones(size(ivn,1),1); 
TmpA=sparse(Tmp,iv(:,1),Tmp,i1,sz); Tmp=[]; TmpB=[]; TmpC=[]; count=0; 


for i=1:sz, 

if (~TmpA(i)) 

count=count+1; Tmp=[Tmp;i,count]; TmpB=[TmpB;r(i)]; TmpC=[TmpC;s(i)]; 

end 
end 
p{4,1}=Tmp; p{4,2}=count; p{4,3}=TmpB; p{4,4}=TmpC; map=[]; Tmp=ones(sz,1); 
map{1,1}=sparse(p{1,1}(:,1),Tmp,p{1,1}(:,2),sz,1); count=p{1,2}; e=q; 
iptlah oe an: Tmp=ones (p{2,2},1); 


for i=2:nx, 
map{i,1i}=sparse (p{2,1}(: ,1) ,Tmp,count*Tmpt+p{2,1}(:,2) ,sz,1); 
for k=1:iin, 
map{i,1}(ii(k,1) ,1)=map{(i-1) ,1} (ii(k,2) ,1); 
end 
count=count+p{2,2}; % +iin; 
for k=1:qn, 
e=[e;map{i,1}(q(k,1)) ,map{i,1}(q(k,2))]; 
end 
for k=1:in2n, 
e=[e;map{i,1}(in2(k,1)) ,map{(i-1) ,1}(in2(k,2))1]; 
end 
v=[v; (i-1) #dim1*Tmp+p{2,3},p{2,4}]; 
end 
Tmp=ones (p{3, 2}, 1); 
for j=2:ny, 
map{1, j}=sparse (p{3,1}(: ,1) ,Tmp, count*Tmp+p{3,1}(: ,2) ,sz,1); 
for k=1:iiin, 
map{i, j} (iii (k,1) ,1)=map{1, (j-1)} (iii (k,2) ,1); 
end 
count=count+p{3,2}; % +iiin; 
for k=1:qn, 
e=[e;map{1,j}(q(k,1)) ,map{1, j} (q(k,2))]; 
end 
for k=1:in3n, 
e=[e;map{1, j} (in3(k,1)) ,map{1, (j-1)}(in3(k,2))]; 
end 
v=[v;p{3,3}, (j-1) *dim2*Tmptp{3, 4}] ; 
end 


Tmp=ones (p{4, 2}, 1); 
for i=2:nx, 
for j=2:ny, 
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76 map{i, j}=sparse (p{4,1}(:,1) ,Tmp,count*Tmptp{4,1}(:,2),sz,1); 
77 for k=1:ivn, 

78 if (iv(k,3)==2) 

79 map{i, j}(iv(k,1) ,1)=map{(i-1) ,j} Civ(k,2),1); 
80 else 

81 map{i, j}(iv(k,1) ,1)=map{i, (j-1)} (iv(k,2),1); 
82 end 

83 end 

84 count=count+p{4,2}; % +ivn; 

85 for k=1:qn, 

86 e=[e;map{i, j}(q(k,1)) ,map{i,j} (q(k,2))]; 

87 end 

88 for k=1:in2n, 

89 e=[e;map{i, j}(in2(k,1)) ,map{(i-1) ,j} (in2(k,2))]; 
90 end 

91 for k=1:in3n, 

92 e=[e;map{i, j}(in3(k,1)) ,map{i, (j-1)} (in3(k,2))]; 
93 end 

94 v=[v; (i-1) #*dim1*Tmp+p{4, 3}, (j-1) *dim2+*Tmp+p{4, 4}]; 
95 end 

96 end 


97 en=size(e,1); vn=size(v,1); cn=size(c,1); 
98 for i=1:cn, 

99 cfi,2}=size(c{i},2); 

100 end 

101 C=[]; count=0; 

102 for i=1:nx, 

103 for j=i:ny, 


104 for k=1:cn, 

105 count=count+1; 

106 C{count ,1}=(1; 

107 for m=1:c{k,2}, 

108 C{count , 1}=[C{count},mapf{i, j} (c{k, 1} (m))]; 
109 end 

110 end 

111 end 

112 end 


113 ciin=size(cii,1); 

114 for i=1:ciin, 

115 ciif{i,3}=size(ciifi,i},2); ciifi,4}=size(ciifi,2},2); 

116 end 

117 ciiin=size(ciii,1); 

118 for i=1:ciiin, 

119 ciiifi,3}=size(ciiifi,1},2); ciiifi,4}=size(ciiifi,2},2); 
120 end 

121 for i=2:nx, 

122 for j=1:ciin, 


123 count=countt1; C{count,i}=[1; 

124 for k=1:cii{j,3}, 

125 C{count ,1}=[C{count} ,map{i,1}(ciif{j,1}(k))]; 

126 end 

127 for k=1:cii{j,4}, 

128 C{count ,1}=[C{count},map{(i-1) ,1} (ciif{j,2}(k))]; 
129 end 

130 end 

131 end 


132 for i=2:ny, 
133 for j=1:ciiin, 


134 count=countt1; 

135 C{count,1}=0); 

136 for k=1:ciii{j,3}, 

137 Cheount ,1}=Leleount) mapti 4} Celdat 19a) 13 

138 end 

139 for k=1:ciii{j,4}, 

140 Clcount 1J-[elesunt) smapt io ame cea eho 
141 end 

142 end 

143 end 


144 civn=size(civ,1); 

145 for i=1:civn, 

146 civ{i,5}=size(civ{i,i},2); civ{i,6}=size(civ{i,2},2); 
147 civ{i, 7}=size(civ{i,3},2); civ{i,8}=size(civ{i,4},2); 
148 end 

149 for i=2:nx, 

150 for j=2:ny, 


151 for m=1:ciin, 

152 count=countt1; C{count,1i}=0; 

153 for k=1:cii{m,3}, 

154 C{count , 1}=[C{count} ,map{i, j} (cii{m, 1} (k))]; 
155 end 

156 for k=1:cii{m,4}, 


157 C{count , 1}=[C{count} ,map{(i-1) , j} (ciif{m, 2}(k))]; 
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end 
end 
for m=1:ciiin, 
count=countt1; 
C{count ,i}=0; 
for k=1:ciii{m,3}, 
C{count ,1}=[C{count},mapf{i, j} (ciiif{m,1}(k))]; 
end 
for k=1:ciii{m,4}, 
C{count , 1}=[C{count},map{i, (j-1)} (ciii{m, 2} (k))]; 
end 
end 
for m=1:civn, 
count=countt1; 
C{count ,i}=01; 
for k=1:civ{m,5}, 
C{count , 1}=[C{count} ,map{i, j} (civ{m, 1} (k))]; 
end 
for k=1:civ{m,6}, 
C{count , 1}=[C{count} ,map{(i-1) ,j} (civim, 2} (k))]; 
end 
for k=1:civ{m,7}, 
C{count , 1}=[C{count},map{(i-1) , (j-1)} (civi{m, 3} (k))]; 
end 
for k=1:civ{m,8}, 
C{count , 1}=[C{count} ,map{i, (j-1)} (civi{m, 4} (k))]; 
end 
end 
end 
end 
Cn=size(C,1); 
for i=1:Cn, 
C{i, 2}=size(C{i,1},2); 
end 
x=]; 
for i=1:Cn, 
Tmp=[0,0]; 
for j=1:C{i,2}, 
Tmp=Tmptv(C{i,1}(j) .:); 
end 
x=[x;Tmp/C{i,2}]; 
end 
xn=size(x,1); 
% for Cells 
B=[]; Bxx=sparse(Cn,Cn); NeCMat=sparse(Cn,Cn); CVMat=sparse(Cn,vn) ; 
for i=1:Cn, 
for j=1:C{i,2}, 
CVMat (1,C{i,1}(j))=1; 
end 
end 
count=0; 
for i=1:vn, 


Tmp=find(CVMat(:,i)); TmpN=size(Tmp,1) ; 
for j=1:(TmpN-1), 
for k=(j+1) :TmpN, 
if (~“NeCMat (Tmp (j) , Tmp (Ix) )) 
count=countt1; NeCMat (Tmp(j) ,Tmp(k))=1; NeCMat (Tmp(k) ,Tmp(j))=1; 
B=[B;Tmp(j) ,Tmp(k)]; Bxx(Tmp(j) ,Tmp(k))=count; Bxx(Tmp(k) ,Tmp(j))=count; 
end 
end 
end 
end 
Bn=count; A=x; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N) ; 


LB=min(x(:,1)); UB=max(x(:,1)); xrng=UB-LB; 
4% LBc=.05*rng+LB ; 
LBc=.1*rng+LB; UBc=UB-LBc; 
for i=1:N, 
if (A(i,1)<=LBc) 
LMat (1,i)=1; 
elseif (A(i,1)>=UBc) 
UMat (1,i)=1; 
end 
end 
NeMat=NeCMat; Blocked=randperm(Cn) ; 
% for Bonds 
NeBMat=sparse (Bn, Bn) ; 
for i=1:Cn, 
[p.q,rJ=find(Bxx(i,:)); nc=size(r,2); 
for j=1:(nc-1), 
for k=(j+1):nc, 
NeBMat (r(1,j),r(1,k))=1; NeBMat(r(1,k) ,r(1,j))=1; 
end 
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240 end 

241 end 

242 A=B; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N) ; 
243 for i=1:N, 

244 if ((x(A(i,1),1)<=LBc) | (x(A(i,2),1)<=LBc)) 


245 LMat (1,i)=1; 

246 elseif ((x(A(i,1),1)>=UBc) | (x(ACi,2) ,1)>=UBc)) 
247 UMat (1,i)=1; 

248 end 

249 end 


250 NeMat=NeBMat; Blocked=randperm(Bn) ; 

251 % for cells 

252 b=[]; bxx=sparse(Cn,Cn); NecMat=sparse(Cn,Cn); count=0; 
253 for i=1:(Cn-1), 

254 for j=(it1):Cn, 


255 if (sum(CVMat(i,:) & CVMat(j,:))==2) 

256 count=count+1; NecMat(i,j)=1; NecMat(j,i)=1; b=[b;i, jl]; 
257 bxx(i,j)=count; bxx(j,i)=count; 

258 end 

259 end 

260 end 


261 bn=count; A=x; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N); 
262 for i=1:N, 
263 0=s if (A(i, 1) <=LBc) 


264 LMat (1,i)=1; 

265 elseif (A(i,1)>=UBc) 
266 UMat (1,i)=1; 

267 end 

268 end 


269 NeMat=NecMat; Blocked=randperm(Cn) ; 

270 % for bonds 

271 NebMat=sparse (bn, bn) ; 

272 for i=1:Cn, 

273 [a,bb,c]=find(bxx(i,:)); nc=size(c,2); 
274 «for j=i:(nc-1), 


275 for k=(j+1):nc, 

276 NebMat (c(1,j),c(1,k))=1; NebMat(c(1,k) ,c(1,j))=1; 
277 end 

278 end 

279 end 


280 A=b; N=size(A,1); LMat=sparse(1,N); UMat=sparse(1,N) ; 
281 for i=1:N, 
282 «if ((x(A(i,1),1)<=LBc) | (x(A(i,2),1)<=LBc)) 


283 LMat (1,i)=1; 

284 elseif ((x(A(i,1),1)>=UBc) | (x(ACi,2) ,1)>=UBc)) 
285 UMat (1,i)=1; 

286 end 

287 end 


288 NeMat=NebMat; Blocked=randperm(bn) ; 

289 % for vertices 

290 NeVMat=sparse(vn,vn) ; 

291 for i=1:en, 

292 NeVMat (e(i,1),e(i,2))=1; NeVMat(e(i,2) ,e(i,1))=1; 

293 end 

204 A=v; N=vn; LMat=sparse(1,N); UMat=sparse(1,N); LB=min(v(:,1)); 
295 UB=max(v(:,1)); rng=UB-LB; LBv=.05*rng+LB; UBv=UB-LBv; 

296 for i=1:vn, 

297 if (v(i,1)<LBv) 


298 LMat (1,i)=1; 
299 end 

300 if (v(i, 1) >UBv) 
301 UMat (1,i)=1; 
302 end 

303 end 


304 NeMat=NeVMat; Blocked=randperm(vn) ; 

305 4 for edges 

306 EVMat=sparse(en,vn) ; 

307 for i=1:en, 

308 EVMat(i,e(i,1))=1; EVMat(i,e(i,2))=1; 
309 end 

310 NeEMat=sparse(en,en) ; 

311 for i=1:vn, 

312 Tmp=find(EVMat(:,i)); TmpN=size(Tmp,1); 
313 for j=1:(TmpN-1), 


314 for k=(j+1) :TmpN, 

315 NeEMat (Tmp (3) ,Tmp (k))=4; NeEMat (Tmp (k) , Tmp(j))=1; 
316 end 

317 end 

318 end 


319 A=e; N=en; LMat=sparse(1,N); UMat=sparse(1,N) ; 
320 for i=1:N, 
321 if ((v(A(i,1),1)<=LBv) | (v(A(i,2) ,1)<=LBv)) 
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LMat (1,i)=1; 
elseif ((v(A(i,1),1)>=UBv) | (v(ACi,2) ,1)>=UBv)) 
UMat (1,i)=1; 
end 
end 
NeMat=NeEMat; Blocked=randperm(N) ; 


% At the end of the day. 
figure(1); clf; hold on; 
for i=1:en, 


plot ([v(e(i,1) ,1) ,v(e(i,2),1)], [v(e(i,1) ,2) ,v(e(i,2) ,2)]); 


end 
figure(2); clf; hold on; 
for i=1:bn, 


plot ([x(b(i,1),1) ,x(b(i,2),1)], [x(b(i,1) ,2) ,x(b(i,2) ,2)]1); 


end 
figure(3); clf; hold on; 
for i=1:Bn, 


plot ([x(B(i,1),1),x(B(i,2),1)], e(B(i,1) ,2) ,x(B(i,2) ,2)]1); 


end 


4 Here come data to be run first, though listed last. 


% (1) 3_3(3°3]7_1[3°7] 


clear all; sz=20; nx=7; ny=4; dx=0.5*[0;1;2;4;6;7;8;10;12]; 
dy=Tmp*[0:1;2;4;5;6;7;8;10311;121; dimi1=max (dx) ; 
q=[1, 2; 1,4; 2,3; 3,5; 4,7; 5,6; 5,8; 7,8; 7,9; 8,10; 9,12; 
5; 14,16; 15,19; 16,17; 16,18; 


13, 143,13, 


i ’ 
m=[3,4,6,1.7,9,3,5,2, 7,8,2,3,5,1,7,9,6,3,4]; 
n=[1,1,2,3,3,3,4,4,5,6,6,7,8,8,9,9,9,10,11,11]; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19, 20]; 
ii=[4,6;15,17]: iii=[1,19;2,20]; in2=[9,11;12,11]; in3=([3, 18]; 
c={[1,2,3,5,8,7,41;(7,8, 10, 14,13,12,9]; [13,14,16,18,20,19,15]}; 
cii={[4,7,9],(11,10,8.5] ;(9,12], [11]; [12,13,15],(16,14.10,11]}: 
ciii={[2,3],[18]}; civ={([1,4],(3,5],[18,16,17], 01}; 
% (2) 3_3[3°3]9_3[379]_II 


clear all; sz=19; nx=4; ny=5; Tmp=1/sqrt (3); 
Tmp=1/3; dy=Tmp* [0,2,4,6,7,8,9,11,13, 15,16, 17,181; 
g=[1,3;2,4;3,5;3,6;4,7;4,9;5,6;5,9;6,8;7,10;8,11;9,12;10,13;12,15;... 
12,16;13,17;14,19;15,16;15,18;16,19;17,18]; 

m=[10,4,10,4,9,11,2,12,7,1,13,7,1,13,6,8,3,5,10]; 
n=[1,2,3,4,5,5,6,6,7,8,8,9,10,10,11,11,12,12,13]; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19]; 
ii=[10,11;13,14]; iii=[1,19]; in2=[7,8]; 
c={[3,6,5] ;[4,9,12,15,18,17,13,10,7] ; [12,16,15];[11,14,19,16,12,9,5,6,8]}; 
cii={[7,10] ,(8];}; ciii={[2],[17,18];[1,3 


civ={[2,4,7],[8,6,3,1], [14], []}; 
% (3) 4_4[374]8_4[378] 


clear all; sz=8; nx=10; ny=10; Tmp=1/sqrt (2); 


Ae a oa ee he dimi=max (dx) ; 


c={[1,2,4, 
4 (4) 3.3 
clear all; 
dy=.5*[0,2 
q=[1,4;2,6; 
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ii=[11, 14; 17,18]; iii=[1,23;2,24;3,25]; 


civ={[1,4,7,11], [10,5,3], [18], [1}; 
% (5) 3_3[373]9_3[3°9] _III 


dy=. 5*[0,3,5,6,9 11,121; dimi=max (dx) ; 

q=[1, 231,332,3;3,4;4,5;4,6;5,7;6,8;7,9;9,11;10,12]; 
m=[2,4,3,3,2,4,1,5,1,5,2,4]; n=[1,1,2,3,4,4,5,5,6,6 
0=[1,2,3,4,5,6,7,8,9,10,11,12]; ii=[7,8;9,10]; 
c={[1,2,3];[4,6,8,10,12,11,9,7,5]}; cii={([5,7], [6]}; 
civ={[1,3,4,5],[6,4,3,2], [10], [1}; 

% (6) 4_3[374]10_6[3710]_I 

clear all; sz=20; nx=8; ny=4; dx=[0,2,3,5,6] 

dim1=max (dx) ; dim2=max (dy) ; 

q=[1,231,6;2,3;2,7;3, 
m=[1,2,3,4,5.1,2,5,1,2.3,4,5,3.4.1.2,3,4,8] ; 
n=[1,1,1,1,1,2,2,2,3,3,3,3,3,4,4,5,5,5,5,5]; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20]; 
1i1=[1,5;6,8;9,13;16,20]; iii=[1,16;2,17;3,18;4,19;5,20]; 
c={[1,2,7,6];[2,3,4,5,8, 
cii={[9,10,11,14,18,17,16],[19,15,12]}; 

% (7) 3_30373]9_3[379]_I 


Tmp=sqrt (3)/2; 
dim2=max (dy) ; 
3; 10,14; 12,13;... 


dx=Tmp*[0,1,2,3,4,5,6,7,8,9,10,11,12]; 


dimi=max(dx); dim2=max(dy) ; 


»5,9,4,2],[18,15,16]}; 


dx=[0,Tmp,1+Tmp,1+2*Tmp] ; 
dim2=max (dy) ; 


gis SAT LM eae »73;2,8]; in2=[]; in3=(1; 
5,3]}; cii={}; ciii={}; civ={[1,3], [2], [6], 0}; 


; nx=3; ny=6; dx=[0,1,2,3,4,5,6,7,8,9,10,11,12]; 
0,11,12]; dimi=max(dx) ; 
»83;5,93;5,10;6,12;6,13; 7, 8;7,11;8,12;9,10;9,13;10,14;11,17; 

5,20; 16, a1; is, 22; 17, 23; is, 25; 19, 20; ig, 23; 20, 24; 21, 22; ai, 24: 22, 25]; 
10,12, i, 5,9, 13, 5. 9,1, 13, 4, 6,8, io, 3, tL; 11]; 
4,5,5,5,5,6,6,7,7,8,8,8,8,9,9,9]; 
10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25]; 


dim2=max (dy) ; 


in2=[]; in3=(]; 

c={[4,8,71; [5,10,9];(7,8,12,15,19,23,17,11]; [6,13,16,21,24,20,15,12]; 
[9,10,14,18, 25,22,16,13] ; [15,20,19]:[16,22.21]}; Li ; 

ciii={[2,6,12,8,4,1], [19,20]; [3,5,9,13,6,2] ,[21,22]}; 


dii=[1,11;2,121; in2=[5,6]; in3=[]; 


in3=[]; 
13,12,11,10,7];(16,7,10,9];[11,12,15,14] ;[14,15,19,18]}; 
ciii={}; civ={}; 


231 
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404 clear all; sz=37; nx=5; ny=3; x=2*sqrt(3)/(2+tsqrt(3)); i=1/2; j=sqrt(3)/2; 

405 dx=x*l0, i, itj, Q*itj, Sit}, 3#it2*j, 4#it2*j, S#it2ej, Seit3*j,... 

406 6*it34*j, 7*it34*], 7*i+4*j], 8*i+44*j]; y=1/2/sqrt (3); 

407 dy=x*[0, 2*y, 2tyt1, 4*yt1, S*yt1, S¥*yt1.5, G¥yt1.5, S¥y+1.5, 8¥*y+2.5, 10*yt+2.5,... 

408 11*y+2.5, 11*y+3, 12*y+3, 14*y+3, 14*y+4, 164y+4, 17#y+4, 17#y+4.5, i8#y+4.5,... 

409 20*y+4.5, 20#yt5.5, 22*y+5.5, 23*yt+5.5, 23*y+6, 24*yt+6]; dimi=max(dx); dim2=max(dy) ; 
410 q=[1,4;2,3;3,53;3,6;4,8;4,9;5,6;5,7;6,9;7,10;8,11;9, 14;10,12;12,15;13,16;14,17;14,19;... 
411 15,19;16,18;17,18;17,20;18,20;19,22;20,21;21,23;21,24;22,25;22,27;23,24; 23,26;... 

412 24,28;25,26;25,29;26, 29; 27,31; 29,30;30,33;30,34;31,35;32,37;33,34;33,36;34,37;35,36]; 
413 m=[10,4,4,10,3,5,2,12,7,1,13,1,13,7,2,12,9,11,4,10,10,4,9,... 


414 11,6,8,1,13,7,7,1,13,6,8,3,5,10]; 

415 n=[1,2,3,4,5,5,6,6,7,8,8,9,9,10,11,11,12,12,13,14,15,16,17,... 

416 17,18,18,19,19,20,21,22,22,23,23,24,24,25]; 

417 0=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,... 

418 24,25,26,27,28,29,30,31,32,33,34,35,36,37]; ii=[10,11;12,13;27,28;31,32]; 


419 iii=[1,37]; in2=[7,8;15,16]; in3=[2,35;2,36]; 

420 c={[3,6,5];(5,6,9,14,19,15,12,10,7]; [4,8,11,13,16,18,17,14,9];... 

421 [14,17,20,21,23,26,25,22,19];[17,18, 20] ; (21,24, 23] ;[22,25,29,30,33,36,35,31,27];... 
422 [23,24,28,32,37,34,30,29,26] ;[25,26,29] ; [30,34,33]}; 

423 cii={(7,10], [8]; [12,15], [16]; [15,19,22,27] ,[24,21,20,18,16]}; 

424 ciii={[2] ,(35,36];[1,4,9,6,3,2], [36,33,34]}; civ={[2,3,5,7],(8,4,1], [32] ,[35]}; 
425 % (8) 4_2[374]10_4[3710] 

426 clear all; sz=42; nx=3; ny=6; i=sqrt(3)-1; j=1/2; k=sqrt(3); 

427 dx=[0, i, k-j, Kk, k+j, k+i, 2*k-i, 2*k-j, 2*k, 2*k+j, 3*k-i, 3+k, 3+k+i,... 

428 4*k-j, 4+*k, 4*kt+j, 4+k+i, 5*k-i, 5*k-j, 5+#k, 5+k+j, 6+#k-i, 6*k]; 

429 i=(2/3)*(3-sqrt(3)); j=1/sqrt (3); k=1/2/sqrt (3) ; 

430 dy=[0, i, 2-k, 2, 2+], 3, 3+i1, 5-k, 5, 5+j, 6]; diml=max(dx); dim2=max(dy); 

431 q=[1,11;2,5;3,6;5,7;5,8;6,9;6,10;7,12;7,15;8,12;8,17;9,13;9,18;10,13;... 

432 10,20;11,21;12,16;13,193;14,23;15,16;15,21;16,17;17,22;18,19;18,22;19,20;... 
433 20,23;21,24;22,31;23,25;24,26;24,27;25,28;25, 29; 26,30;26,33;27,30;27,35;... 
434 28,32;28,36;29,32;29,38;30,34;31,40;31,41;32,37;33,34;33,39;... 


435 34,35;35,40;36,37;36,41;37,38;38,42]; 

436 m=[1,9,15,23,9,15,8,10,14,16,1,9,15,23,6,9,11,13,15,18,4,12,20,4,... 

437 20,3,5,19,21,4,12,20,2,4,7,17,20,22,1,9,15,23]; 

438 n=[1,1,1,1,2,2,3,3,3,3,4,4,4,4,5,5,5,5,5,5,6,6,6,7,... 

439 7,8,8,8,8,9,9,9,10,10,10,10,10,10,11,11,11,11]; 

440 0o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,... 

441 25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42]; 

442 ii=[1,4;11,14;39,42]; iii=[1,39;2,40;3,41;4,42]; in2=[]; in3=(]; 

443 c={[5,8,12,7];[6,10,13,9];[7,12,16,15];[8,17,16,12] ;[9,13,19,18] ; [10,20,19,13];... 


444 [15,16,17,22,31,40,35,27, 24,21] ;[18,19,20,23,25,28,36,41,31, 22]; [24,27,30,26];... 
445 [25,29,32,28];[26,30,34,33] ; [27,35,34, 30] ; [28,32,37,36] ; [29,38,37,32]}; 

446 cii={[11,21,24,26,33,39], [38,29,25,23]}; 

447 ciii={[2,5,7,15,21,11,1], [83,34,35] ;[8,6,9,18,22,17,8,5,2],[31];... 

448 [4,14,23,20,10,6,3], [36,37,38]}; civ={}; 

449 % (9) 4_3[374]10_6[3710]_II 

450 clear all; sz=56; nx=5; ny=3; i=2/(2-1/sqrt(3)); n=sqrt (3); 

451 j=.5*(1.5*i-sqrt(3)); k=i/2; p=n-n*(1-i/n)-j; q=i; 

452 dx=[0,j,k,p,q,n,nt+j,ntk,ntp,ntq,2*n,2*nt+j ,2#ntk,2*ntp,2*n+q,3#n,3#n+j,... 

453 34ntk,3*ntp,3#ntq,4*n]; m=3; j=i*(1/2+1/n)-1; tmp=1-i/sqrt (3) ; 

454 p=i; k=p-tmp; g=pttmp; r=qti/2; s=2*i; 

455 dy=(0,j,k,p,q,r,5,m,m+j,mtk,mtp,m+q,mtr,mts,24*m,2*mt+j,2*mt+k,2*m+p,2*mtq,2*mtr,... 
456 2#mts,3*m,3+*mt+j ,3*mtk,3*mtp, 3*mtq,3*mtr,3*m+s,4*m]; dimil=max(dx); dim2=max(dy) ; 
457 q=[1,2;1,73;2,8;3,6;5,6;6,10;7,8;7,12;8,13;10,11;10,14;11,18;11,19;12,13;13,16;... 
458 14,17;14,19;15,18;16,17;16,21;17,22;18,20;19,20; 20,23 ;21,22;21,25;22,26;23,27;... 
459 24,28;25,26;25,28;26,29;27,30;27,31;28,32;29,30;29,33;30,34;32,35;33,34;33,38;... 
460 34,39;35,36;35,37;36,41;36,44;37,44;38,39;38,41;39,42;40,43;41,45;42,43;42,46;... 
461 43,47;44,45;45,48;46,47;46,51;47,52;48,49;48,50;49,55;50,54;51,52;51,55;52,56]; 
462 m=[1,5,15,21,9,13,1,5,21,13,17,1,5,11,21,6,10,20,14,18,6,10,18,2,6,10,16,... 

463 5,11,15,19,3,11,15,3,7,1,11,15,21,10,16,20,4,8,16,20,8,12,6,16,20,1,5,15,21]; 
464 n=[1,1,1,1,2,3,4,4,4,5,6,7,7,7,7,8,8,8,9,10,11,11,12,13,14,14,14,... 

465 15,15,15,16,17,18,18,19,20,21,21,21,21,22,22,22,23,24,25,25,26,27,28,28,28,29,29,29,29]; 
466 o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,... 

467 28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56]; 
468 ii=[1,4;7,9;12,15;37,40;53,56]; iii=[1,53;2,54;3,55;4,56]; 

469 in2=(24,23;24,31;32,31]; in3=[5,49;5,50]; 

470 c={[1,2,8,7];(7,8,13,12];[10,11,19,14];[11,18,20,19] ;[14,19,20,23,27,30,29,26,22,17];... 
471 [16,17,22,21];[21,22,26,25]; [25,26,29,33,38,41,36,35,32,28]; [29,30,34,33];... 

472 [33,34,39,38];[35,36,44,37] ; [36,41,45,44] ; [38,39,42,46,51,55,49,48,45,41];... 

473 [42,43,47,46];[46,47,52,51]}; 

474 cii={[12,13,16,21,25,28,24] , [23,20,18]; [24] , [81,27,23]; (24,28,32],[31];... 

475 [32,35,37],[43,42,39,34,30,27,31]; [87,44,45,48,50,54,53] ,[52,47,43]}; 

476 ciii={[5,6,10,14,17,16,13,8,2], [50]; [5], [50,48,49];[5,6,3],[49];... 

477 [4,9,15,18,11,10,6,3], [51,52]};civ={}; 

478 % (10) 4_2[374]8_2[378] 

479 clear all; sz=32; nx=4; ny=6; i=1/2; j=sqrt(3); 

480 dx=[0,i,2*i,],2*),3*j-2*i1,3*j-i,3*] ,3*j+i,3*j+2*i,4+*j,5*j ,6*j-2*i1,6+j-1,6*j]; 

481 i= (2* (aqrt (3)-1)) /aqrt (3) ; j=(sqrt (3)/2)+i; k=(1/2/sqrt(3))+j; m=itsqrt (3) ; 

482 n=3; dy=[0,i,j,k,m,n,nti,n+j,ntk,ntm,2+*n]; dimi=max(dx); dim2=max(dy) ; 

483 q=[1,5;2,10;3,11;5,7;6,8;7,9;7,14;8,12;8,15;9,13;10,17;10,18;11,18;11,19;13,14;... 
484 14,17;15,16;15,193;17,23;18,20;19,25;20,21;20,22;21,24;21 ,26;22,24;22,28;23,29;... 
485 23,30;24,27;25,31;25,32; 26,27; 26,30; 27,28;28,31]; 
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m=[1,5,11,15, 
n=[1,1,1,1,2, ’ 
o=[1,2,3,4,5, 5 
24,25 ,26,27,28,29, 
11=[1,4;5,6;9,12;13,16;29,32]; iii=[1,29;2,30;3,31;4,32]; in2=[]; in3=[]; 
c={(7,14,13,9]; (8,12,16,15] ; [10,18,20,21,26,30,23,17]; [11,19,25,31,28,22,20,18];... 
[20,22, 24,21]: [21,24, 27,26]; [22,28,27,24]}: cii={[5,7,9], [8]; [13,14,17,23,29] ,[25,19,15]}; 
ciii={(2,10,17,14,7,5,1], [23]; (3,11,18,10,2], [26,27,28]}; 
civ={[1],[6,8,15,19,11,3], [25], (1}; 
% (41) 4_3[374]8_3[378]_I 
clear all; sz=22; nx=9; ny=3; m=sqrt(3); i=2/(2-1/m); n=m/2; tmp=(m-i)/2; 
tmp1=i/4; j=n-tmp1; k=n-tmp; p=n+tmp; q=nt+tmp1; 
dx=[0,j,k,p,q,m,m+j,mtk,mtp,m+q,2*m]; m=2; n=1; tmp=.5*(1-itsqrt (3) +*i/2); tmpi=2*tmp; 
j=m-tmp1; k=j+i/2; p=mttmp; g=mtn-tmp; r=pti/2; s=mtnttmpi; u=2*mtn; t=utn; 
dy=(0,j,k,p,q,r,s,u,t,t+j,tt+k,ttp,ttq,ttr,tts,t+u,2*t]; dimi=max(dx); dim2=max(dy) ; 
q=[1,3;3,53;4,6;5,7;5,8;6,7;7,9;8,9;9,10;10,11;10,12;11,13;13,16;14,15;15,17;... 
15,18;16,17;17,19;18,19;19,20;20,21;20,22]; 
m=[1,11,1,11,5,9,8,2,6,6,1,11,1,11,7,3,4,10,6,6,1,11]; 
n=[1,1,2,2,3,4,5,6,7,8,9,9,10,10,11,12,13,14,15,16,17,17]; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22]; 
1i=(1,2;3,4311,12313,14;21,22]; iii=[1,21;2,22]; in2=[8,6;16,18]; in3=[]; 
c={[5,7,9,8];[10,12,14,15,17,16,13,11]; [15,18,19,17]}; 
cii={[3,5,8], [6] ;[8,9,10,11], [10,9,7,6]; [13,16], [18,15] ; [16,17,19,20,21] ,[20,19,18]}; 
ciii= ={[2,4 6.7, 5,3, i]. [201}; civ={}; 
% (12) 4_3[37 4]8_ 3[3* 8]_II 
clear all; sz=41; nx=5; n =3; dx=[0,1,2,3,4,5,6,7,8,9,10,11,12]; 
dy=2. 5*[0,1,2,3,4, 5,6, 7, 8 dimi=max(dx); dim2=max (dy) ; 
q=[1, 23;1,10;2,3;3,4;4,5;4, 8: 5,6'5,9°6,7% 8, 9;8,12;9,13;10,11;11,123;11,20;12,13;13,14; 


5 4,8,12,8,7,9,4,8,12,6,8,10,1,5,11,15]; 
2 8,8,9,9,9,10,10,10,11,11,11,11]; 
5 7,18,19,20,21,22,23,... 
7 


14,15; 14,17;15,16; 15, 18; it, 18; 17, 22; is, 23; i9, 20; 19, 25; 20, 21; 21, 22; 21, 30; 22, 23; 23, 24; 

24,26;25,27;26,32;27, 28; 28,29;28, 33; 29,30; 29,34; 30,31 ;31,32;31,40; 33,34;33,36;34, 371; 
m=[1,3,5,6,8,10,13,6,8,1,4,6,8,9,11,13, 9, 11, 2,4, 7 9, 

11, 12 »2,12,2,3,5,7,10,12,3,5,1,3,5,6,8, 10, 13]; 
n=[i, 1, 1,1,1,1,1,2,2,3,3,3,3,3,3,3,4,4,5,5,5,5,5,5,6,6,7,7,7,7,7,7,8,8,9,9,9,9,9,9,9]; 
0=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,... 

28,29,30,31,32,33,34,35,36,37,38,39,40, 41]; ii=[1,7;10,16;35,41]; 
iii=[1,35;2,36;3,37;4,38;5,39;6,40;7,41]; in2=[19,24;25,26;27,32]; in3=[]; 
c={[1,2,3,4,8,12,11,10];[4,5,9,8];[5,6,7,16,15,14, 13,9] ;[8,9, 13, 121; 

[11,12,13,14, 17,22,21, 201; (14,15,18, 171; [17, 18, 23, 221; [19, 20, ai, 30, 29 528,27,25];... 

[21,22,23,24, 26,32, 31,30, 21]; [28,29,34,33] ; [33,34,37,36]}: 
cii={[10,11,20,19], [24,23,18,15,16] ; [19,25] , [26,24] ; [25,27] ,[32,26]}; 


ciii={[3,4,5,6],[34,29,30,31]}; civ={[1], [6] , [31,32], [27,28,33,36]}; 

% (13) 4_3[374]8_3[378]_III 

clear all; sz=22; nx=10; ny=3; x=16*sqrt(3)/(4*(sqrt(3)+1)); i=x/4; j=2*sqrt (3) ; 
dx=[0,i,2*i, j-2*i, j-i,j,jti, jt+2*i,2*j-2*i,2*j-i,2*j]; i=(sqrt(3)/4)*x; j=12; 
dy=[0,x,x+i,x+2*i, j-2-x-2*i, j-2-x-i, j-2-x,j-2,j, jtx,jtxti, jtxt2ei,2*j-2-x-2*i,... 


2*j-2-x-i,2*j-2-x,2*j-2,2*j]; dimi=max(dx); dim2=max(dy) ; 
q=[1,3; 3,7:4,535,6:6,7;7,838,9;9,10;10, 11;10,12;11,13;13,15;14,17;15,16;16,17;17,18;... 
18,19;19,20;20,21;20,22]; m=[1,11,1,11,10,9,8,7,6,6,1,11,1,11,2,3,4,5,6,6,1,11]; 
n=[1,1,2,2,3,4,5,6,7,8,9,9,10,10,11,12,13,14,15,16,17, 17]; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22]; 
ii=[1,2;3,4;11,12;13,14;21, 221; iii=(1,21;2,22]; in2=[8,5;9,6;15,18;16,19]; in3=[]; 
c= {f10, 12; 14,17,16,15,13, 11]}; 


cii= ={[3, 7,8), [5]; (8, 91, (6, 5]; [9,10,11], [10,9,8,7,6] ; [13,15] , [17,18]; [15,16], [18,19];,,, 
[16,17,18,19, 20,211, [i9, 201}; ciii={[2,4,5,6,7,3,1],[20]}; civ={} 

% (14) 4_4[3°4]7_2[3°7] _II 

clear all; sz=33; nx=6; ny=5; dx=[0,1,2,3,4,5,6,7,8,9,10,11,12]; 

dy=4*[0,1,2,3,4]; diml=max(dx); dim2=max(dy) ; 

g=[1,2;1,8;2,3;3,4;4,5;4,10;5,6;5,11;6,7;8,9;9,10;9,16;10,11;11,12;12,13;12,18;... 
13,14;13,19;15,16;15,21;16,17;17,18;17,24;18,19;19,20;20,26; 21 ,22;22,23;22,28;... 


23 ,24;23,29;24,25;25,26;25,32]; 
m=[1,3,5,6,8,10,13,1,4,6,8,9,11,13,2,4,7,9,11,12,2,3,5,7,10,12,1,3,5,6,8,10,13]; 
n=[1,1, 1.1.1, 1,1,2,2,2,2,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,5,5,5,5,5,5,5]; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,... 
27,28,29,30,31,32,33]; ii=[1,7;8,14;27,33]; iii=[1,27;2,28;3,29;4,30;5,31;6,32;7,33]; 
in2=[15,20;21 5261; in3=[] ;x 
c={[1,2,3,4,10,9 81;[4,5,11,10] ;(5,6,7,14,13,12,11] ;[9,10,11,12,18, 17,16] ; [12,13,19,18]; 
(15,16, 17 ,24,23,22,21];[17,18,19,20, 26, 25,24] ; (22,23, 29,28] : [23,24, 25,32,31,30,29]}; 
cii={[8.9,16, 15] , [20, 19,13]; [15,21] , [26,201 ; [21,22.28,271, [32,25,261}; ciii={}; civ={}; 


% (15) 3_3[373]12_6[3712] 
clear all; sz=17; nx=8; ny=5; i=2+sqrt(3); dx=[0,1,2,i1,i+1,i+2,2*i]; 
i=sqrt (3); j=3t+2*i; dy=[0,i1,i+2,2*i+2,j,j+i, j+it2, j+2*it+2,2*j]; diml=max(dx); dim2=max(dy) ; 


g=[1,2;1,4;2,4;4,5;5,6;5,7;6,7;7,9;8,10;9,10;9,11;10,113;11,12;12,13;12,14;13,14;13,16;14,17]; 
m=[1,3 12,9, Wg3 1946, 5. 5,4,6,1,3,7]; n=[1,1,1,2,3,4,4,4,5,5,6,7,8,8,9,9,9]; 
o=[1,2,3,4,5,6,7,8,9,10,i1, 12,13,14,15,16,17]; ii1=[1,3;6,8;15,17]; iii=[1,15;2,16;3,17]; 
in2=[(]; in3=1; c={[1,2,4];(5,7,6];[9,10,11] ; [12,14,13]}; 

cii={16,7,9 11,12,13, 16], [i7, 14,12,11, 10]}; ciii={}; 


civ={[1,4,5,6],[10,9,7,5,4,2], [13, 14], (1}; 

% (16) 4_4[374]7_2[3°7]_I 

clear all; sz=35; nx=6; ny=6; dx=[0,1,2,3,4,5,6]; dy=[0,1,2,3,4,5,6]; 

dim1=max (dx); dim2=max (dy) ; 

g=[1,2;1,7;2,3;3,4;3,12;4,5;5,8;7,10;8,9;8,14;10,11;10,16;11,12;11,17;... 
12,13;13,14;13,18;14,19;16,17;17,22;18,19;18,23;19,20;20,21;20,28;22,23;... 
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568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 


22 ,25;23,26; 24,25; 24,30; 25,31;26,27;26,33;27,28;27,34;28,29]; 
m=[1,2,3,4,5,7,1,5,7,1,2,3,4,5,7,1,2,4,5,6,7,2,4,1,2,4,5,6,7,1,2,3,4,5,7]; 
n=[1,1,1,1,1,1,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,5,5,6,6,6,6,6,6,7,7,7,7,7,71; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,.. 

27,28,29,30,31,32,33,34,35]; ii=[7,9;16,21;24,29]; 
iii=[1,30;2,31;4,33;5,34]; in2=[]; in3=0); 
c={[1,2,3,12,11,10,7];[138,4,5,8,14,13,12]; [13,14,19,18] ;[11,12,13,18,23,22,17]; 

[10,11,17,16];[18,19,20,2 7,26, 231; [24, 25,31,30] ; [26,27,34,33]}; 


27, 
1; fo}, [21, 20,19,14,8, 91}; 


8 
cii={[16,17,22,25,24], [28,2 
1;3; civ={[1], 19, 8,5], [27, 28] , [24]}; 


ciii={[2,3,4], [25,22,23,26 
% (17) 5_4[375]7_4[3°7]_I 
clear all; sz=75; nx=2; ny=3; i=sqrt(3)/2; 
dx=it[0,1,2,3,4,6,7,8,9,10,12,13,14,15,16,18,19,20,21,22,24]; 
dy=.5*[0,1,2,4,6,7,8,10,12,13,14,16,18,19,20,22, 24]; 
dim1=max (dx); dim2=max (dy) ; 
q=[1,7;1,10;2,10;2,11;3,11;3,12;4,12;4,13;5,13;5,14;6,8;6,15;7,9;7,25;8,14; 9,18; 
10,19;11,20;12,16;13,17;14,23;16,17;16,21;17,22;18,27;19,25;19,28; 20, 26;20, 29; 
21,29;21,30;22,30;22,31;23,31;23,32;24,32;25,27;26,28;26,41;27 ,35; 28,36; 29,37;... 
30, 38;31,33;32,34;33,34;33,39;34,40;35,43;35,44;36,44;36,45;37,41;37,46;38,42;... 
38,47 ;39,47;39,48;40,48;40,49;41,45;42,46;42,60;43,50;44,51;45,55;46,56;47,57;... 
48 ,58;50,51;50,53;51,54;53,62;54,62;54,63;55,63;55,64;56,64;56,65;57,60;57,66;. 
58,61;58,67;59,67;60,65;61,66;62,70;63,68;64,69;65,73;66,74;67,75;68,69;68,71; 69, (721; 
n=[3, 6,10,13,16,20,2, i9, i, 5,8, ii, is, is, a1, i1, i5, i, 5,8, i1, is, is, a1, 4, 1333 6, 10, 13, 
16,20, 16,20,3,6,10,13,16,20,9,12,1,5,8,11,15,18,21.1,5,21,1,5,8,11,15,18,21.14.... 
17,3,6,10,13,16,20,6,10,3,6,10,13,16,20]; 
n=[1,1,1,1,1,1,2,2,3,3,3,3,3,3,3,4,4,5,5,5,5,5,5,5,6,6,7,7,7,7,7,17,8,8,9,9,9,9,9,... 
9,10,10,11,11,11,11,11,11,11,12,12,12,13,13,13,13,13,13,13,14,14,15,15,15,15,15,... 
15,16,16,17,17,17,17,17,17]; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,... 
30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47 ,48,49,50,51,52,53,54,55,... 
56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75]; 
ii=[9,153;18,24;43,49;50,52;53,59]; iii=[1,70;2,71;3,723;4,73;5,74;6,75]; 
in2=[]; in3=(8,61]; 
c={[1,10,19,25,7];([2,11,20,26,28,19,10];[3,12,16,21,29,20,11]; [4,13,17,16,12]; 
[5,14,23,31,22,17,13];[6,15,24,32,23,14,8];(7,25,27,18,9];[16,17,22,30,21];... 
[19,28,36,44,35,27,25]; [20,29,37,41, 26]; [21,30,38,42,46,37, 29] ; [22,31,33,39,47,38,30]; 
[23 ,32,34,33,31] ; [26,41,45, 36,28]; [33,34,40,48,39] ;[35,44,51,50,43];... 
[36 ,45,55,63,54,51,44]; [37,46,56,64,55,45,41]; [88,47,57,60,42] ; [89,48,58,61,66,57,47];... 
[40 ,49,52,59,67,58,48] ; [42,60,65,56,46]; [50,51,54,62,53]; [55,64,69,68,63]}; 
cii={[18,27,35,43], [40,34,32]}; 
ciii={[2,10,1], [62,54,63,68];[2,11,3], [69,68] ;[4,12,3] , [69,64,56,65]; 
[5,13,4] ,[65,60,57,66];(5,14,8], [61,66]; [8,6], [67,58,61]}; 
civ={[1,7,9], [6] , [67,59], [62]}; 
% (18) 3_1[473]5_1[475]_I 
clear all; sz=27; nx=4; ny=8; dx=[0,1,2,3,4,5,6,7,8]; dy=[0,1,2,3,4]; 
dim1=max (dx); dim2=max (dy) ; 
g=[1,2;1,832,3;2,8;3,4;3,12;4,5;4,9;5,6;5,16;6,7;6,10;8,11;9,13;9,14;9,15;11,12;11,18;... 
12,13312,23;13,14;13,193;14,15;14,19;15,16;15,19;16,17;16,25;18,21;18,22;19,24;20,26]; 
m=[1,2,3,5,7,8,9,1,5,9,1,3,4,5,6,7,9,1,5,9,1,2,3,5,7,8,9]; 
n=[1,1,1,1,1,1,1,2,2,2,3,3,3,3,3,3,3,4,4,4,5,5,5,5,5,5,5]; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27]; 
ii=[1,7;8,10;11,17;18,20;21,27]; iii=[1,21;2,22;3,23;4,24;5,25;6,26;7,27]; in2=[]; in3=(0]; 
c={[1,2,8];[2,3,12,11,8];[3,4,9,13,12];[4,5,16,15,9];(5,6,10,17,16]; [6,7,10]; 
[9,14,13]:[9, 15,14]; (11,12, 23,22, 18]; (12,13, 19, 24, 23] ; [13, 14,19] ;[14,15.19]; ‘ 
[15,16,25,24,19];[16,17,20,26,25];[18,22,21]}; cii={}; ciii={[6,7],[20]}; civ={}; 
% (19) 3_1[473]5_1[475]_II 
clear all; sz=13; nx=8; ny=8; dx=[0,1,2,3,4]; dy=[0,1,2,3,4]; diml=max(dx); dim2=max (dy) ; 
g=[1,2;1,5;2,3 4;4,6;4,7;4,8;5,6;5,11;6,7;6,10;7,8;7,10;8,9;8,10;10,12]; 
m=[1,3,5,3,1,2 4,5,3,1,3,5]; n=[1,1,1,2,3,3,3,3,3,4,5,5,5]; 
o=[1,2,3,4,5,6 8,9,10,11,12,13]; i1=[1,3;5,9;11,13]; iii=[1,11;2,12;3,13]; in2=[]; in3=); 
c={[1,2, J 8,41; [4,7,6];(4,8,7];[5,6,10,12,11];[6,7,10];[7,8,10]; [8,9,13,12,10]}; 
cii={}; 
4 (20) 
clear al 
dx=[0,1,2 
dy=0.5*L0, 
36,37 ,38,4 


29; 
v={}; 

[378] _II 

nx=3; ny=2; i=sqrt(3)/2; 


4 »3 
ci ci 
5 _6 
1; 
>7,8,9,10,11,12,13,14,15,16]; 
>7,8,10,12,13,14,16,18,19,20,22,24,25,26,28,30,31,32,34,... 
3,44,46, 48]; dimi=max(dx); dim2=max (dy) ; 
q=[i, bs eae 8; 2,632 ,973,9:3,10; 4, 10;4,11;5,7;5,19;6,8;7,14;8,15;9,12;10,13;12,13;... 
12,16;13, 17314, 21;15,19;15,22;16,22;16,23;17,23:17,24;18.20;19,21;20,24;21,27;... 
22 ,25;23,26;24,30;25,26;25,28;26,29;27,31;27,34;28,34;28,35;29,35;29,36;30,32;... 
30,37; 31,33; 32,36:32,46:33,40; 34, 38:35,39; 36,43:38,39;38,41:39,42:40,47:41.47:... 
41,48;42,48;42,49;43,45;43,50;44,46;45,49;45,58;46,50;47,51;48,52;49,55;50,56;... 
51,52;51,53;52,54;53,59;53,60;54,60;54,61;55,57;55,62;56,58;56,63;57,61;57,73;... 
58,62;59,64;60,65;61,69;62, 70;64,65;64,67;65,68;67,74;68,74;68,75;69,72;69,76;... 
70,73;70,77;71,77;72,75;72,85;73,76;74,78;75,81;76,82;77,79;78,80; 79,83 ;80,86;... 
80,87 ;81,84;81,88;82,85;82,89;83,89;83,90;84,87;84,100;85,88;86,91;87,95;88,96;... 
89 ,92;91,94;92,93;92,97;94,101;95,99;95,102;96,100;96,103;97,103;97,104;98,104;... 
99,101;100,102;101,107;102,108;103,105;104,106;105,106;105,109;106,110]; 
m=(3,7,11,15,2,6,1,5,9,13,17,9,13,1,5,9,13,17,4,16,3,7,11,15,7,11,3,7,... 
11,15,2,14,1,5,9,13,17,5,9,1,5,9,13,17,12,16,3,7,11,15,3,7,3,7,... 
11,15,10,14,1,5,9,13,17,1,5,17,1,5,9,13,17,8,12,3,7,11,15,3,15,3,... 
7,11,15,6,10,1,5,9,13,17,1,13,17,1,5,9,13,17,4,8,3,7,11,15,... 


x > 32, 
t > 23, 
> > aT, 
6,5 ; [2 
ii={}; 

_3[37518 
sz=110; 
»3,4,5,6 
1,2,4,6 
0,42,4 
»6;2 


4 
6; 


Ph.D. Thesis, UMIST. K N Tiyapan. Appendix A: Programs 235 


650 11,15,3,7,11,15]; 

651 n=[1,1,1,1,2,2,3,3,3,3,3,4,4,5,5,5,5,5,6,6,7,7,7,7,8,8,9,... 

652 9,9,9,10,10,11,11,11,11,11,12,12,13,13,13,13,13,14,14,15,15,15,15,16,16,17,... 

653 17,17,17,18,18,19,19,19,19,19,20,20,20,21,21,21,21,21,22,22,23 ,23,23,23,24,24,... 

654 25,25,25,25,26,26,27,27,27,27,27,28,28,28,29, 29,29, 29,29,30,30,31,31,31,... 

655 31,32,32,33,33,33,33]; 

656 o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,... 

657 28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,... 

658 53,54,55,56,57,58,59,60,61,62,63,64,65,66,67 ,68,69,70,71,72,73,74,75,76,77,... 

659 78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,... 

660 102,103,104,105,106,107,108,109,110]; 

661 ii1=(7,11;14,18;33,37;40,44;59,63;64,66;67,71;86,90;91,93;94,98] ; 

662 iii=[1,107;2,108;3,109;4,110]; in2=[31,20;78,79]; in3=[6,99]; 

663 c={[1,8,15,19,5];[2,9,12,16,22,15,8,6];[3,10,13,12,9]; [4,11,18,20,24,17,13,10];... 

664 [5,19,21,14,7];[12,13,17,23,16] ;[15,22,25,28,34,27,21,19]; [16,23,26,25,22];... 

665 [17,24,30,32,36,29, 26,23] ;[25,26,29,35,28] ; [27,34,38,41,47,40,33,31];... 

666 [28,35,39,38,34] ; [29,36,43,45,49,42,39,35] ; [30,37,44,46,32] ; [32,46,50,43,36];... 

667 [38,39,42,48,41];[41,48,52,51,47] ; [42,49,55,57,61,54,52,48] ; [43,50,56,58,45];... 

668 [45,58,62,55,49]; [51,52,54,60,53] ; [53,60,65,64,59] ;[54,61,69,72,75,68,65,60];... 

669 [55,62,70,73,57];[57,73,76,69,61] ; [64,65,68,74,67] ;[68,75,81,84,87,80,78,74];... 

670 [69,76,82,85,72];[70,77,79,83,89,82,76,73] ;[72,85,88,81,75];... 

671 [80,87,95,99,101,94,91,86];[81,88,96,100,84] ; [82,89,92,97,103,96,88,85];... 

672 [83,90,93,92,89] ;[84,100,102,95,87]; [92,93,98,104,97] ; [97,104,106,105,103]}; 

673 cii={[14,21,27,31] , [20]; [31,33] , (30,24, 20] ; [40,47,51,53,59] ,[56,50,46];... 

674 [67,74,78] ,[79,77]; [64] ,[71,77,70,62,58,56,63] ; [78,80,86] , [83,79]}; 

675 ciii={[1,8,6], [99,101]; [2,6], [99,95,102];[2,9,3],[105,103,96,100,102];(3,10,4],[106,105]}; 
676 civ={[1,5,7], [4], [106,104,98], [101]}; 

677 % (21) 5_3[375]8_6[378]_III 

678 clear all; sz=110; nx=4; ny=2; i=sqrt(3)/2; 

679 dx=i*[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]; 

680 dy=0.5*[0,1,2,4,6,7,8,10,12,13,14,16,18,19,20,22,24,25,26,28,30,31,32,34,... 

681 36,37,38,40,42,43,44,46,48]; diml=max(dx); dim2=max(dy) ; 

682 g=[1,7;1,8;2,5;2,9;3,6;3,10;4,10;4,11;5,8;6,9;6,20;7,12;8,13;9,17;10,18;12,13;... 

683 12,15;13,16;15,22;16,22;16,23;17,23;17,24;18,20;18,25;19,21;20,24;21,25;22,28;... 

684 23,26;24,27;25, 31; 26,27; 26, 29;27, 30; 28,32;28,35; 29,33; 29,36; 30,36; 30,37 ;31,37;31,38;... 
685 32,34;33,35;33,47;34,39;35,43;36,44;37,40;39,42;40,41;40,45;42,49;43,49;43,50;44,47;... 
686 44,51;45,48;45,52;46,52;47,50;48,51;48,60;49,53;50,54;51,57;52,58;53,54;53,55;54,56;... 
687 55,59;55,62;56,62;56,63;57,63;57,64;58,60;58,65;59,61;59,73;60,64;61,68;62,69;63,66;... 
688 64,67;66,67;66,70;67,71;68, 75;69,73;69,76;70,74;70,77;71,77;71,78;72,78;73,75;74,76;... 
689 74,85;75,79;76,82;77,83;78,80;79,81;80,84; 81,87 ;81,88;82,88;82,89;83,85;83,90;84,86;... 
690 84,91;85,89;86,90;86,100;87,94;88,92;89,93;90,97;92,93;92,95;93,96;94,101;95,99;... 

691 95,102;96,102;96,103;97,103;97,104;98,100;99,101;100,104;101,107;102,108;103,105;... 
692 104,106;105,106;105,109;106,110]; 

693 m=[(3,7,11,15,6,10,1,5,9,13,17,1,5,17,1,5,9,13,17,12,16,3,7,11,15,7,11,3,7,11,15,2,... 
694 6,1,5,9,13,17,1,13,17,1,5,9,13,17,8,12,3,7,11,15,3,7,3,7,11,15,2,14,1,5,9,13,17,9,... 
695 13,1,5,9,13,17,4,8,3,7,11,15,3,15,3,7,11,15,10,14,1,5,9,13,17,5,9,1,5,9,13,17,4,... 

696 16,3,7,11,15,11,15,3,7,11,15]; 

697 n=([1,1,1,1,2,2,3,3,3,3,3,4,4,4,5,5,5,5,5,6,6,7,7,7,7,8,8,9,9,9,9,10,10,11,11,11,... 

698 11,11,12,12,12,13,13,13,13,13,14,14,15,15,15,15,16,16,17,17,17,17,18,18,19,19,19... 

699 ,19,19,20,20,21,21,21,21,21,22,22,23,23,23,23,24,24,25,25,25,25,26,26,27,27,27,... 

700 27,27,28,28,29, 29,29, 29,29,30,30,31,31,31,31,32,32,33,33,33,33]; 

701 o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,... 
702 -31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,... 
703 59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83, 84,85,86,... 
704 87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110]; 
705 ii=(7,11;12,14;15,19;34,38;39,41;42,46;61,65;68,72;87,91;94,98] ; 

706 i1i1=[1,107;2,108;3,109;4,110]; in2=[32,21;79,80]; in3=[5,99]; 

7o7 c={[1,8,13,12,7];[2,9,17,23,16,13,8,5];[3,10,18,20,6];[6,20,24,17,9];... 

708 [12,13,16,22,15];[16,23,26,29,33,35,28,22];[17,24,27, 26,23]; [18,25,31,37,30,27,24,20];... 
709 ©[26,27,30,36, 29] ; [28,35,43,49,42,39,34,32] ; [29,36,44,47,33] ; (30,37, 40,45,48,51,44,36];... 
710 [31,38,41,40,37]; [383,47,50,43,35]; [40,41,46,52,45] ;[43,50,54,53,49];... 

711 [44,51,57,63,56,54,50,47]; [45,52,58,60,48] ; [48,60,64,57,51]; [53,54,56,62,55];... 

712 [55,62,69,73,59] ; [56,63,66,70,74,76,69,62] ; [57,64,67,66,63] ; [58,65,72,78,71,67,64,60];... 
713 [59,73,75,68,61] ; [66,67,71,77,70] ; [69,76,82,88,81,79,75,73];[70,77,83,85,74];... 

714 ([71,78,80,84,86,90,83,77]; [74,85,89,82,76] ; [81,88,92,95,99,101,94,87];... 

715 ([82,89,93,92,88] ; [83,90,97,103,96,93,89,85] ;[84,91,98,100,86] ; [86,100,104,97,90];... 
716 ©[92,93,96,102,95];[97,104,106,105,103]}; 

717 cii={[15,22,28,32], [21]; [12], [19,21,25,18,10,4,11]; [82,34], [31,25,21];... 

718 [42,49,53,55,59,61], [58,52]; [68,75,79], [80,78] ;(79,81,87], [84,80]}; 

719 ciii={[1,8,5],[99,101];[5,2],[102,95,99];[2,9,6,3],[105,103,96,102];[3,10,4] ,[106,105]}; 
720 civ={[i,7],[4], [106,104,100,98] , [101]}; 

721 % (22) 6_2[375]12_12[3712] 

722 clear all; sz=34; nx=5; ny=3; i=sqrt(3)/2; dx=i*[0,1,2,3,4,5,6,7,8]; 

723 dy=[0,.5,1,3,3.5,4,5,6,6.5,7,9,9.5,10,11,12]; dimi=max(dx); dim2=max(dy) ; 

724 g=[1,3;1,6;2,4;2,6;3,5;3,11;4,7;4,12;5,8;6,9;8,13;9,11;9,12;10,14;11,13;12,14;... 

725 13,15;14,16;15,17;16,18;17,193;17,21;18,20;18,23;19,22;19,27;20,22;20,28;21,24;... 

726 22,25;24,27;25,29;25,30;26,28;27,29; 28,30;29,31;30,32;31,32;31,33;32,34]; 


727 m=(3,7,2,8,1,5,9,1,5,9,4,6,3,7,3,7,3,7,4,6,1,5,9,1,5,9,2,8,3,7,3,7,3,7]; 

728 n=[1,1,2,2,3,3,3,4,4,4,5,5,6,6,7,7,8,8,9,9,10,10,10,11,11,11,12,12,13,13,14,14,15,15]; 
729 0o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,... 

730 28,29,30,31,32,33,34]; ii=[5,7;8,10;21,23;24,26]; iii=[1,33;2,34]; in2=[15,16]; in3=[]; 
731 c={[1,6,9,11,3];[2,4,12,9,6];[3,11,13,8,5];[4,7,10,14,12];... 
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732 [9,12,14,16,18,20,22,19,17,15,13,11];[17,19,27,24, 21]; [18,23,26,28,20]; 
733 [19,22,25,29,27];[20,28,30,25,22]; [25,30,32,31,29]}; 

734 cii={[8,13,15],[16,14];(15,17,21],[18,16]}; ciii={[1,6,2], [32,31]}; 

735 civ={[1,3,5], [4,2], [32,30,28,26] , [27,29,31]}; 

736 % (23) 6 _4[375]7_4[3°7]_II 

737 clear all; sz=21; nx=3; ny=5; i=sqrt(3)/2; dx=i*[0,1,2,3,4,6,7,8,9,10,12]; 
738 dy=(0,.5,1,3,3.5,4,6]; dimi=max(dx); dim2=max(dy) ; 

739 g=[1,4;1,6;2,5;2,7;3,8;3,9;4,7;4,14;5,8;6,10;7,11;8,12;10,14;11,16;11,17;12,15;... 
740 12,17;13,18;14,16;15,18;16,19;17,20;18,21]; 

741 m=(3,6,10,4,7,1,5,8,11,1,5,8,11,2,9,3,6,10,3,6,10]; 

742 n=[1,1,1,2,2,3,3,3,3,4,4,4,4,5,5,6,6,6,7,7,71; 

743 0o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21]; 

744 i1i1=[6,9;10,13]; iii=[1,19;2,20;3,21]; in2=[]; in3=[5,15]; 

745 c={[1,4,14,10,6];[2,5,8,12,17,11,7];(3,9,13,18,15,12,8];[4,7,11,16,14]}; 
746 cii={}; ciii={[1,4,7,2],[17,11,16]; [2,5], [15,12,17];(5,8,3], (18,15]}; 

747 civ={[1,6],[3], [18,13], [14,16]}; 

748 % (24) 5_3[375]8_6[378]_I 

749 clear all; sz=30; nx=8; ny=6; i=sqrt(3)/2; dx=[0,1,2,3,4,5,6,7,8]; 

750 dy=([0,.5,1,3,3.5,4,6,6.5,7,9,9.5,10,12]; dimi=max(dx); dim2=max (dy) ; 


751 g=[1,3;1,6;2,4;2,7;3,5;3,11;4,6;5,83;6,9;8,13;9,11;9,14;10,12;11,13;12,14;13,15;... 
752 14,16;15,17;15,20;16,18;16,21;17,19;18,20;18,26;19,22;20,23; 21,24; 22,27;23,25;... 
753 23,28;24,26; 25, 27:26, 28:27,29:28,301; 

754 m=[3,7,2, 6,1,5,9,1,5,9,4,8,3,7,3,7,2,6,1,5,9,1,5,9,4,8,3,7,3,71; 

755 n=[1,1,2,2,3,3,3,4,4,4,5,5 6,6,7,7,8,8,9,9,9,10,10,10,11,11,12,12,13,13]; 

756 o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30]; 
757 11=[5,7;8,10;19,21;22,24]; iii=[1,29;2,30]; in2=[17,12]; in3=[4,25]; 

758 c={[1,6,9,11,3];[2,7,10,12,14,9,6,4]; [3, 11,13,8,5]; fo, 14, 16,18,20, 15, 13,11]; 


759 ©[15,20, 23, 25,27 ,22, 19, i7]; [16, a1, 24,26, 18]; [is, 26,28,23, 201}; 

760 cii={[8,13,15,17], [12]: [17,19] , [16,14, 121}; 

761 ciii={[1,6,4], [25,27]; [4,2], [28,23,25]}; civ={[1,3,5], [2], [28,26,24], [27]}; 
762 % (25) 4_2[374]12_6[3712] 

763 clear all; sz=21; nx=10; ny=6; i=sqrt(3)/2; 

764 dx=[(0,1-i,.5,1,1.5,141,2,1.54+1,2+1,2.5+1,2+2*i]; i=1/sqrt(3); j=sqrt(3)/6; 
765 d=sqrt(3)+1.5; dy=[0,i,itj,3#i1,3*it1,d,dti,dtitj ,d+3*i,d+3*it1,2+*d]; 

766 dimi=max (dx) ; ainoenes (dy: 

767 g=[1,2;1,6;2,3;2,5;3,7;5,6;5,7;6,8;7,8;8,9;9,10;9,11;11,12;11,14;12,13;13,14;... 
768 13,15;14,16;15,16;16,17;17,20;17,21]; 

769 m=(1,4,7,11,4,3, 5,4. 4,2, 6 9,9, 8, 10, 9, 9, 1,4,7,11]; 


770 n=(1,1, 1,1,2,3,3,4, 5, 6: oe on a 8, 8, 9, 10, il, 1i, i1, 11]; 

771 0=[1,2,3,4,5, 6,7,8, 9, 10, il. 12, 13. 14, 15, 16, 17, 18, 19,20,21]; 

772 ii=[1, 4;18,21]; iii i=[1, 18; 2, 19; 3,20;4, 211; ind= [10, 12;10, 15]; in3=[]; 

773 c={[1,2,5,6];[2,3,7,5];1[5,7,8, 6]: [1i, 12, 13, 14]; [13,15,16,14]}; 

774 cii= ={[10 1, (45,13, 121}; ciii= {}; 

775 civ= ={[1,6.8,9,10], (12,11,9,8,7,3], 017], (18];(18,2], [4], (17,16,15],[10,9,11,14,16,17,20]}; 
776 % (26) 4. 2[374]18_ 12[37 18] 

777 clear all; sz=36; nx=6; ny=3; i= =sqrt (3) ; j=6/i; d=2*jti; 

778 dx=[0,i,j,d-j,d- i,d, d+i ,d+j,2*d-j,2*d-i,2+d]; 

779 dy=[0,3,4,6,7,9,10,13,15,18,19,21,22,24,25,28,30]; dimi=max(dx); dim2=max (dy) ; 

780 g=[1,3;2,4;3,5;3,8;4,6;4,9;5,7;7,8;8,11;9,10;9,13;11,12;11,15;12,13;12,14;13,16;... 
781 14,15;14,16;15,17;16,17;17,18;18,19;18,20;19,21;19,22;20,21;20,24;21,23;22,23;... 

782 22,26;23,24;24,27;25,26;25,29;26,31;27,28;27,32; 29,31 ;30,32;31,33;32,34;33,35;34,36]; 
783 m=[i, 11, 2,10,1,11,1,3,9,11,4,6,8,6,5,7,6,6,5,7,6,4,6,8,1,3,9, Se ee ae A 
7384 n=[1,1, 2, 2 73,3,4,4,4,4,5,5,5,6,7,7,8,9, 10, 10. 11, 12. 12, 12. 

785. 13,13, 13, 13,14,14,15,15, 16, 16. 17, 171; 

786 o= [i, 2,3, 4 7D,y6,7,8;39,10,11, 12, 13, ia, 15, 16,17,18,19,20,21,22,23,24,... 

787 25,26, 27 28,29, 30,31,32, 33, 34, 35, 36] ; 

788 4i=[1,2;5.6;7,10;25, 28; 29, 30; 33, 34; 35,36]; iii=[1,35;2,36]; in2=(; 3=0; 

789 c={[3,8,7,51;14,6,10,91; [i1, 12, i4, 15]; [12,13,16, 14]; (14, 16,17,15]; isa” "20, 21, 19]; 

790 [19,21,23,22];[20,24,23,21]; [25, 26, 31, 291; [27, 28, 30 ,321}; 

791 cii={[1,3,5], [4];[7,8,11,15,17,18,19, 22, 26,25] , [27,24,20,18,17,16,13,9] ; [29,31,33] , [32]}; 
792 ciii={[1,3,8,11,12,13,9,4,2], [34,32,27,24,23,22,26,31,33]}; civ={}; 

793 % (27) [3°7]_I 


794 clear al =60; nx=4; ny= 2; x=sqrt(3); dx=x*(0,1,2,3,4,5,6]; 


,8 
-3[3°617_ 3 

s 

795 dy=[0,1,2,3,4,5,6,7,8 


Neo 


33,4, 395 sil, 12,13,14,15,16,17, isl; dimi=max (dx) ; SRT T Re 
796 g=[1,5; 2 3932,633,6;3,7;4,7;5,8;6,11;7, 9; 8,10;9, 12; 10, 13;10,14;11, 14; 11,15;12,15; 
797 12,16; 13, 17;14,18;15,22;17,18; 17, 20; 18, 21; 20, 24; 21, 24; 21, 25; 22, 25; 22, 26; 23, 26; ier 
798 24,27;25,28;26,31;27,28;27,29;28,30;29 *32:29,33: 30, 33;30,34;31,34;31,35;32 °38:... 


1 


799 33,36;34,37; 36,37 ;36,39;37,40;38,42;39 342:39,43:40,43:40,44:41,44:42,47:43,45:... 

800 44,46;45,46;45,48; :46,49:47,50;47,51:48, 51;48,52;49,52;49,53;50,54;... 

801 51,58:52,55:54,57;55,56:55,591 ; 

802 m=[1,3,5,7,2,4,6,2,6,2,4,6,1,3,5,7,1,3,7,1,3,5,7,2,4,6,2,4,2,4,6,1,3,5,7,3,... 

803 5,1,3,5,7,2,4,6,4,6,2,4,6,1,3,5,7,1,5,7,1,3,5,7]; 

804 n=[1,1,1,1,2,2,2,3,3,4,4,4,5,5,5,5,6,6,6,7,7,7,7,8,8,8,9,9,10,10,10,11,11,11,... 

805 11,12,12,13,13,13,13,14,14,14,15,15,16,16,16,17,17,17,17,18,18,18,19,19,19,19]; 

806 o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,... 
807  31,32,33,34,35,36,37,38, 39, 40, Ai, 42, 43, 44, 45 ,46,47,48,49,50,51,52,53,54,55, 56,57, 58,59, 60]; 
808 ee ean 16;17, 19;20,23;32,35;38,41;50,53;54,56;57,60]; 

809 iii1=[1,57;2,58;3,59;4,60]; in2=[8,9]; in3=(]; 


810 c={[2,6, 11, 14,10 °8,51;[3,7,9,12,15,11,6] ; (10, 14,18, 17,13]; [11,15,22,25,21,18,14]; 
811 [17,18, 21,24, 20]; [21, 25,28, 27,24] : [22,26,31,34,30, 28,25]; [27,28,30,33,29]; : 
812 [29,33,36,39,42,38,32] ; [30,34,37,36,33] ; [31,35,41,44,40,37,34] ; [36,37,40,43,39] ; 
813 [39,43,45,48,51,47,42];[40,44,46,45,43]; [45,46,49,52,48]; [49,53,56,55,52]}; 


814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
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843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
8385 
8386 
8387 
8388 
839 
890 
891 
892 
893 
894 
895 
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cii={(1,5,8],[9,7];[8,10,13], [12,9]; [17], [23,26,22,15,12,16]; 
[20 ,24,27,29,32] , [31,26]; [38,42,47,50] , [49,46,44]}; 
ciii={[1,5,2], [51,47,50,54] ; (2,6,3] , (55,52,48,51];(3,7,4],(56,55]}; civ={}; 
% (28) 5_3[375]7_3[377]_II 
clear all; sz=32; nx=5; ny=3; nx=3; ny=2; x=sqrt(3)/2; dx=[0,2,3,4,6,7,8]; 
dy=0.5*[0,2,4,5,6,10,11,12,14,16,17,18,22,23,24]; dimi=max(dx); dim2=max(dy) ; 
g=[1,4;2,8;4,5;4,7;5,10;7,11;8,10;8,12;9,12;10,11;11,13;12,14;13,16;13,17;14,15; 
14,17;15,18;15,20;16,21;17,19;19,20;19,22;20,24;21,25;22,25;22,26;23,24;24, 26; 


25 ,27;26,28; 27, 29;27,30;28,31;28,32:29,311; 
m=[1,4,7, 1,2,7,1,4,7,3,2,5 2,5,6,1,4,7,4,5,1,4,7,6,2,5,2,5,3,1,4,7]; 
n=[1,1,1,2,2,2,3,3,3,4,5,5,6,6,7,8,8,8,9,9,10,10,10,11 ,12,12,13,13,14,15,15,15]; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32]; 
i1i1=[1,3;4,6;7,9;16,18;21, 23; 30, 32]; iii=[1,30;2,31;3,32]; in2=[]; in3=[5,29]; 
c={[4,5,10,11,7]; (8, 12, 14, 17, 13, 11,10]; [13,17, 19, 22, 25, 21, 16]; [14,15,20, 19, 17]; 
[15,18,23,24, 201; [i9, 20, 24, 26, 221; [22,26 ,28, 31, 29, 27, 251}; 
cii={[7, 11,13, 16], [15,14, 121; [21,25,27, 30] , (28,26, 24]}; 


ciii={[1,4,5], [29,27]; [2,8,10,5] , [29]; [2,8,12,9,6,3],[28]}; civ={[1],(], [28,26,24,23] ,[25,27]}; 
% (29) 3_2[473]5_2[475]_I 


clear all; sz=15; nx=6; ny=6; dx=[0,1,2,3,4]; dy=[0,1,2,3,4]; dimi=max(dx); dim2=max (dy) ; 
q=[1,2;1,6;2,3;2,533,4; 3,075, 76583 6; 7; 6, 10; 7 38;7,10;8,9;8,13;10,12;11,14]; 
m=[1,3,4,5,3,1,2.3,5,1,5,1,3,4,51; n=[1,1,1,1,2,3,3,3,3,4,4,5,5,5,5]; 
o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15]; ii=[1,4;6,9;10,11;12,15]; ii11=[1,12;2,13;3,14;4,15]; 
in2=[]; in3=[]; 


c={[1,2,5,7,6];(2,3,5];08,4,9,8,5];15,8,7];(16,7,10] ;(7,8,13,12,10];[8,9,11,14,13]}; 
cii={}; ciii={}; civ={(1], [3], [11], 0}; 

% (30) 3_2[473]5_2[475]_II 

clear all; sz=41; nx=3; ny=3; dx=[0,1,2,3,4,5,6,7,8]; dy=[0,1,2,3,4,5,6,7,8]; 
dim1=max(dx); dim2=max (dy) ; 

Serer ere Mn TTT ER Paar rer ee Er 


11,165;12,13;12,22;13,14;13,17;14,17;14,18;15,16;15,20;16,20;16,21;17,18;17, 23; 

18,19;18,27; 20,21; 21,22; 21,29;22,23; 22,25; 23,25; 23,26; 24,28; 25,26; 25,30; 26,27; 26, 35; 

27,28; 27,31; 28, 31; 28,32; 29,30; 29,33; 30,33;30,34;31,32;31 536:32, 40; 33,34;33,37;34,35; 

35 ,36;35,38; 36, 38;36,39]; 
m=[1,5,6,8,9,1,3,4,8,9,3,4,6,7,1,2,6,7,9,1,2,4,5,9,4,5,7,8,2,3,7,8,2,3,5,6,1,5,6,8,9]; 
n=[1,1,1,1,1,2,2,2,2,2,3,3, 3,3,4,4,4,4,4,5,5,5,5,5,6,6,6,6,7,7,7,7,8,8,8,8,9,9,9,9,9] ; 
0o=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,... 

29,30,31,32,33, 34, 35,36,37,38,39,40,41]; 
ii=[1,5;6,10;15,19;20,24;37,41]; iii=[1,37;2,38;3,39;4,40;5,41]; in2=[29,32]; in3=[7,34]; 


c={[2,3,13,12,8];(3,4,9,14,13];[4,5,9]1;(5,10,9];[6,7,11,16,15];(7,8,11];[8,12,11]; 
[9,10,19,18,14] ;[11,12,22,21,16];[12,13,17,23,22];[13,14,17]; [14,18,17] ;[15,16,20]; 
(16,21, 20] ;[17,18,27, 26,23]; [18,19,24,28,27] ; [21,22,25,30,29] ; [22,23,25];[23,26,25]; 
[25 ,26,35,34, 30]; (26, 27,31,36,35] ; (27, 28,31] ; (28, 32,31] ; [29,30,33] ; [30,34,33]; 
[31 ,32,40,39, 36] ; [35,36,38] ; [36,39,38]}; 

cii={[20, 21,29], [32,28]; [29,33,37],[40,32]}; ciii={[1,6,7], [84,33];1[7,8,2],[35,34]}; civ={}; 

4% (31) 3_3[473]5_3[475] 

clear all; sz=9; nx=6; ny=7; dx=[0,2,3,4,6]; dy=[0,2.5,5]; dimi=max(dx); dim2=max(dy) ; 

q=[1,231,6;2,3;2,5;3,4;3,5;5,7;5,8]; m=[1,2,4,5,3,1,2,4,5]; n=[1,1,1,1,2,3,3,3,3]; 

o=[1,2,3,4,5,6,7,8,9]; ii=[1,4;6,9]1; iii=[2,7;3,8;4,9]1; in2=[]; in3=[]; 

c={[1,2,5,7,6];[2,3,5];(5,8,7]}; cii={1,6],[8,5,3]}; ciii={}; civ={}; 

% (32) 3_1[473]6_2[476]_I 

clear all; sz=21; nx=3; ny=3; dx=[0,2,3,5,7,8,10]; 

dy=[0,2,3,5,7,8,10]; dimi=max(dx); dim2=max (dy) ; 

g=[1,2;1,7;2,3;2,7;3,4;3,6;4,5;4, 8; 6,10;6,113;6,12;7,9;9,10;9,15;10,11;10,14;11,12; 


11,14;12,13;12,14;14,19;15, 17; 15, 18; 16, 201; 
m=[1,3,4,5,7,4,1,7,1,2,4,6,7,4,1, a 1,3; A. 5 eae n=[1,1,1,1,1,2,3,3,4,4,4,4,4,6,5,5,7,7,7,7,7]; 
0=[1,2,3,4,5,6,7,8,9,10,11, 12, 13. 14, 15. 16, 17,18,19,20, ai]: ii=[1,5;7,8;9,13;15,16;17,21]; 
iii=(1,17;2,18;3,19;4,20;5, 211; in2= 0: in3= O; 
c={[1,2,7];[2,3,6,10,9,71; (3, 4,8,13,12,6];[4,5,8];[6,11,10]; (6,12,11];[9,10,14,19,18,15]; 
(10,11,14];[11,12, eae 13, ié, 20,19, 14]; [is, 18, 171}; cii= ={[15, 171, 201}; ciii= {}; civat}: 
% (33) 3_1[473]6_2[476]_I 
clear all; sz=12; nx=6; ny= a dx=[0,1,3,5,6]; dy=[0,2,3,5]; diml=max(dx); dim2=max(dy) ; 
g=[1,2;1,8;2,3;2,6;3,4;3,6;4,5;4,6;6, 7; 7, 9; 7,10;7, 111: m=[i, 2,3,4,5,3,3, i, 2,3,4,5]; 
n=[(1,1, 1,1,1,2,3.4,4.4,4.41; o= [i, 2, 3, 4, 5, 6, 7, 8,9,10,11,12]; ii= i, 5 8, 121; 
4ii=[1,8;2,9:3,10;4, 11;5,121; in2=[]; in3=(]; 
c={[1,2,6,7,9,8] ;[2,3,6];(3,4,6];[7,10,9];[7,11,10]}; cii={[1,8],[11,7,6,4]1}; ciii={}; civ={}; 
% (34) 3_2[4°73]6_4[476] 
clear all; sz=7; nx=10; ny=7; dx=[0,1,2,4]; =[0,3,6]; dim1=max(dx); dim2=max(dy) ; 
g=[1,2;1,6;2,3;2,4;4,5;4,6]; m=[1,3,4,2,1, 3, 7 n=[1,1,1,2,3,3,3]; o=[1,2,3,4,5,6,7]; 
ii=[5,7;1,3]; iii=[1,5;2,6;3,7]; ind= O: in3= ui; c={[1,2,4];[4,5,6]}; 
cii={(1,4,5],06,4,2]}; ciii={}; civ={}; 
% (35) 3_3[4°3]6_6[476] 
clear all; sz=11; nx=8; ny=5; dx=[0,1,2,3,4]; y=sqrt(3); dy=y*[0,1,2,3,4]; dimi=max(dx) ; 
dim2=max (dy) ; q=[1, 2;2,3;2,4;3,434,6;4,7;5,6;5, 8;6,7;6,8;8,9;8,10]; 
m=[1,3,5,4,1,3,5,2,1,3,5]; n=([1,1,1,2,3,3,3,4,5 aa 5]: o= t1. 2,3,4,5,6,7,8,9,10,11]; 
11=[1,3;5,7;9,11]; iii=[1,9;2,10;3,11]; in2=[1; in3 O; c {2 3 4] (4,7,6];(5,6,8];[8,10,9]} 
cii={[1,2,4,6,5],[41;[5,8,91,[10,8,6]}: ciii={}; civ= 


% (36) 3.1147 318_4[478] 


clear all; sz=12; nx=7; ny=7; dx=[0,2,3,5]; dy=[0,2,3,5]; dimi=max(dx); dim2=max(dy) ; 


q=[1,2;1,5;2,3;2 533,4;3,6;5,7;7,9;7,10;8,11]; m=([1, 2535 4, 1,4,1,4,1, 2, 3 54]; 
n=[1,1,1,1,2,2,3,3,4,4,4,4]; o=[1,2,3,4,5,6,7,8,9, 10, ii, 12]: ii= [i,4 5,6; 7,8;9,12]; 
iii=(1,9;2,10;3,11;4,12]; in2=[]; in3=0; c={[1,2,5];[2,3,6, 8,11,10, 7, 51: [3, 4, 6]; [7, 10,9]}; 
cii={[7,9],[11]}; ciii=t}; civ={}; 
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806 % (37) 3_1[5°73]4_2[574]_I 

897 clear all; sz=8; nx=16; ny=4; dx=[0,1,2]; y=sqrt(3); dy=[0,2,y+2,y+4,2*yt+4]; dim1=max(dx) ; 
898 dim2=max(dy); gq=[1,2;1,3;3,4;3,5;4,5;5,6;6,7;6,8]; m=[1,3,1,3,2,2,1,3]; n=[1,1,2,2,3,4,5,5]; 
s99 o=[1,2,3,4,5,6,7,8]; ii=[1,2;3,4;7,8]; iii=[1,7;2,8]; in2=[5,5;6,6]; in3=[]; 

900 c={[1,2,4,3];03,4,5];16,8,7]}; cii={[3,5,6,7],(16,5]}; ciii={}; civ={}; 

901 % (38) 3_1[573]4_2[574] 

902 clear all; sz=25; nx=3; ny=3; dx=[0,1,2,3,4]; dy=[0,1,2,3,4]; diml=max(dx); dim2=max (dy) ; 
903 g=[1,2;1,6;2,3;2,6;2,7;3,4;3,73;3,8;4,5;4,9;6,7;6,11;7,8;7,12;8,9;8,12;8,13;9,10;9,13;... 

904 9,14;11,123;11,16;12,13;12,17;13,14;13,183;14,15;14,18;14,19;15,19;16,17;16,21;17,18;... 

905 17,21317,22;18,19;18,23;19,20;19,24;20, 24] 
906 m=[(1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5,1,2,3,4,5]; 

907 n=[1,1,1,1.1,2.2,2,2,2,3.3,3,3,3,4,4,4,4.4,5,5.5,5,51; 

908 0=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25]; 

909 i11=(1,5;6,10;11,15;16,20;21,25]; iii=[1,21;2,22;3,23;4,24;5,25]; in2=[]; in3=0]; 

910 c={[1,2,6] ;[2,7,6]; (2,3,7];(3,8,7]; (3,4,9,8];[4,5,10,9];[6,7,12,11];[7,8,121; [8,13,12]; 
911 [8,9.13];[9,14,131;[9,10,15, 14] ;[i1, 12.17, 16]; (12,13, 18,17]; [13, 14,181]; [14,19,181]: 

912 [14,15,19];([15,20,19];[16,17,21];(17,22,21];[17,18,23,22]; [18,19,24,23] ;[19,20,24]}; 

913 cii={[16,21],[24]}; ciii={}; civ={}; 

914 % (39) 3_2[573]4_4[574] 

915 clear all; sz=12; nx=4; ny=4; t=37*pi/180; y=cos(t/2)/tan(t/2) ; 

916 dx=[0,1,2,ytl,y+2,y+3,2¥*y+2]; dy=[0,1,y,yt1,y+2,2*y+1,2*yt+2]; diml=max(dx); dim2=max (dy) ; 
917 g=[1, 3; i, §32,4;2,5;3,4;4,6;4,7;5,6; 5, ae 6,7;6,8;6,9;7, ne 8,10;8,11;9,11;9, 121; 

918 m=[1,3,7,5,2,4,6,2,5,1,3, 71; n=[1, i, 2. 3, 4, 4, 5, 67 7,71; o= [i, 2,3,4, 5, G. 7; 8 59,10,11,12]; 
919 4i=[1,3;10,12]; ger eo Aa in2= [5, ée 8 3 n3=[4,91; 

920 c={[1,2,5] ;£2,4,6,51;[4,7,61;15,6,81];[6,7,9]; (6,9, 11,81}; 

921 cii={[1,5],[7,4];(5,8],(7];(8,10],(9,7];(8,11],(42]}; ciii={(2,4],[9];(4,3],[9]}; civ={}; 


§ A.7 Covering lattices 


% cover contour 
clear all; St=sum(100*clock); rand(’state’,St); CaN=100; X=rand (CaN, 2); 
[Va,Ca]=voronoin(X); VaN=size(Va,1); Vin=sparse(VaN,1); 
for i=1:VaN, 
if ((Va(i,1)<=1) & (Va(i,1)>=0) & (Wa(i,2)<=1) & (Va(i,2)>=0)) 
Vin(i,1)=1; 
end 
end 
9 CO=[]; Xn=[]; count=0; 
10 for i=1:CaN, 
11 pee ees 2); Tmp=1; 
12 for j=1:TmpN 
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13 if(" vin (eati} (1,3), 1)) 

14 Tmp=0; break; 

15 end 

16 end 

17 «if (Tmp) 

18 count=countt1; CO{count,1}=TmpN; CO{count ,2}=Ca{i}; Xn=[Xn;il]; 
19 end 

20 end 


21 CN=size(C0,1); Cci=O; 

22 for i=1:CN, 

23. «- Tmp=(CO{i, 2}, cO{i,2}(1,1)]; 
24 for j=1:CO{i,1}, 


25 C1{i,j}(1,1)=(VaCTmp (1, j) ,1)+Va(Tmp(1, (j+1)) ,1))/2; 
26 Cif{i,j}(1,2)=(Va(Tmp (1, j) ,2)+Va(Tmp(1, (j+1)) ,2))/2; 
27 end 

28 end 


29 C{i}=C1; figure(1); clf; hold on; 
30 for i=1:CN, 

31 x=[]; y=01; 

32 for j=1:CO{i,1}, 


33 x=[x,C{1}{i,j}(1,1)]; y=Ly,c{1}{i,j}(1,2)]; 
34 end 

35 x=[x,x(1,1)]; y=[y,y(1,1)]; plot(x,y); 

36 end 

37 axis equal; 

38 n=8; 

39 for k=2:n, 

40 Cn=(]; 

41 for i=1:CN, 

42 TmpX=([]; TmpY=[]; 

43 for j=1:CO{i,1}, 

44 TmpX=[TmpX, C{k-1}{i,j}(1,1)]; TmpY=[TmpY, C{k-1}{i, j}(1,2)]; 
45 end 

46 TmpX=([TmpX, TmpX(1,1)]; TmpY=[TmpY,TmpY(1,1)]; 
47 for j=1:COf{i,1}, 

48 Cn{i, j} (1,1) =(TmpX (1, j)+TmpX (1, (j+1)))/2; 
49 Cnf{i, j} (1,2) =(TmpY(1, j)+TmpY (1, (j+1)))/2; 
50 end 


51 end 
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C{k}=Cn; 
end 
figure(2); clf; hold on; 
for i=1:CN, 
x=[]; y=0; 
for j=1:CcOf{i,i}, 
be ciate ea i y=ly,C{n}{i,j}(1,2)]; 
end 
x=[x,x(1,1)]; y=[y,y(1,1)]; plot(x,y); 
end 
axis equal; DEVV=sparse (VaN,VaN) ; 
Dvo=(] ; 
for i=1:CN, 
TmpN=CO{i,1}; Tmp=[CO{i,2},cof{i,2}(1,1)]; 
for j=1:TmpN, 
Vi=Tmp(1,j); V2=Tmp(1, (j+1)); 
if (“DEVV(V1,V2)) 
dx=Va(V2,1)-Va(V1,1); dy=Va(V2,2)-Va(V1,2); 
TmpA=sqrt (dx*dx + dy*dy); DEVV(V1,V2)=TmpA; DEVV(V2,V1)=TmpA; 
end 
DVO{i,1}{1,1} (1, j})=DEVV(V1,V2); dx=Va(V1,1)-X(Xn(i,1),1); 
dy=Va(V1,2)-X(Xn(i,1) ,2); TmpA=sqrt(dx¥*dx + dy*dy); DVO{i,1}{2,1}(1,j)=TmpA; 
end 
end 
AO=[]; 
for i=1:CN, 
TmpN=CO{i,1}; Tmp=[DVO{i,1}{2,1} ,DVO{i,1}{2,1}(1,1)]; At=0; 
for j=1:TmpN, 
a=DVO{i,1}{1,1}(1,j); b=Tmp(1,j); c=Tmp(1,(j+1)); s=(atbtc)/2; 
Ai=sqrt (s*(s-a) *(s-b)*(s-c)); At=Att+Ai; 
en 
AO=[AO;At]; 
end 
DV=[]; A=(1; 
for i=1:n, 
TmpA=[]; 
for j=1:CN, 
TmpN=CO{j,1}; TmpB=[]; 
for k=1:TmpN, 
TmpB=(TmpB; C{i}{j,k}]; 
end 
TmpB=[TmpB ; TmpB(1,:)]; 
for k=1:TmpN, 
x1=TmpB(k,1); yil=TmpB(k,2); x2=TmpB((kt1),1); y2=TmpB((kt1) ,2); 
dx=x2-x1; dy=y2-y1; TmpA{j,1}(1,k)=sqrt (dx*dx + dy*dy); 
dx=x1-X(Xn(j,1),1); dy=yi-X(Xn(j,1),2); TmpA{j,2}(1,k)=sqrt (dx*dxtdy*dy) ; 
end 
end 
DV{i}=TmpA; TmpA=(]; 
for j=1:CN, 
TmpN=CO{j,1}; TmpB=[DV{i}{j,2},DV{i}{j,2}(1,1)]; At=0; 
for k=1:TmpN, 
a=DV{i}{j,1}(1,k); b=TmpB(1,k); c=TmpB(1, (k+1)); s=(atbt+c)/2; 
Ai=sqrt (s*(s-a)*(s-b)*(s-c)); At=At+Ai; 
end 
TmpA=[TmpA; At]; 
end 
A{i}=TmpA; 
end 
p=Csum(A0)]; 
for i=1:n, 
p=[p,sum(A{i})]; 
end 
p=p*100/p(1); figure(3); clf; plot(O:n,p); 


§ A.8 Covering contour 


ANIaahwNnNr 


4 gxy.m, cover contour (c) 2002, Kit Tiyapan@UMIST 
clear all; St=sum(100*clock); rand(’state’,St); CaN=120; 
X=rand(CaN,2); [Va,Ca]=voronoin(X); VaN=size(Va,1); Vin=sparse(VaN,1); 
for i=1:VaN, 
if ((Va(i,1)<=1) & (Wa(i,1)>=0) & (Wa(i,2)<=1) & (Va(i,2)>=0)) 
Vin(i,1)=1; 
end 
end 
co=[]; Xn=[]; count=0; 
for i=1:CaN, 


TmpN=size(Ca{i},2); Tmp=1; 
for j=1:TmpN, 
if (“Vin (Cafi} (1,5) ,1)) 
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14 Tmp=0; break; 

15 end 

16 end 

17 if (Tmp) 

18 count=countt1; CO{count,1}=TmpN; CO{count ,2}=Ca{i}; Xn=[Xn;il]; 
19 end 

20 end 


21 CN=size(C0,1); Cci=O1; 

22 for i=1:CN, 

23» «- Tmp=(CO{i, 2}, cO{i,2}(1,1)]; 
24 for j=1:CO{i,1}, 


25 C1{i,j}(1,1)=(Va(Tmp (1,5) ,1)+Va(Tmp(1, (j+1)) ,1))/2; 
26 C1{i,j}(1,2)=(VaCTmp (1, j) ,2)+Va(Tmp(1, (j+1)) ,2))/2; 
27 end 

28 end 

29 C{i}=C1; 

30 

31 n=8; 

32 for k=2:n, 

33 Cn=(]; 

34 for i=1:CN, 

35 TmpX=[]; TmpY=[]; 

36 for j=1:CO{i,1}, 

37 TmpX=[TmpX , C{k-1}{i, j}(1,1)]; TmpY=[TmpY, C{k-1}{i, j} (1,2)]; 
38 end 

39 TmpX=[TmpX, TmpX(1,1)]; TmpY=(TmpY,TmpY(1,1)]; 

40 for j=1:COf{i,1}, 

41 Cn{i, j} (1,1) =(TmpX (1, j) +TmpX (1, (j+1)))/2; 

42 Cnf{i, j} (1,2) =(TmpY(1, j)+TmpY (1, (j+1)))/2; 

43 end 

44 end 

45  C{k}=Cn; 

46 end 


§ A.9 Number of vertices 


1 % numofvertices.m 

2 clear all; dimmin=2; dimmax=9; batches=5; dvn=[]; cpu=[]; 

3 nmax=1000; rand(’state’ ,sum(100*clock)) ; 

4 for i=dimmin:dimmax, 

5 for j=1:batches, 

6 n=round(nmax/i); x=rand(n,i); t=cputime; [v,c]=voronoin(x) ; 

7 cpu(i,j)=(cputime-t)/n; lend=“floor(v); hend=~(ceil(v)-ones(size(v))); 
8 lhend=lend & hend; in=min(lhend,[],2); dvn(i,j)=sum(in) /n; 

9 end 

10 end 


11 dvn=[(1:dimmax)’,dvn]; dvn=dvn(2:dimmax,:); figure(1); clf; 

12 for i=1:batches, 

13 semilogy(dvn(: ,1) ,dvn(:,(it1)),’.’,’LineWidth’,2); hold on; 

14 end 

15 edvn=[dvn(: ,1) ,sum(dvn(: ,2: (batchest+1)),2)/batches]; tmp=edvn(:,2)./exp(edvn(:,1)); 
16 A=sum(tmp) /(dimmax-1); m=[dimmin,dimmax]; semilogy(m, A*exp(m)) ; 

17 cpu=[(1:dimmax)’,cpu]; cpu=cpu(2:dimmax,:); figure(2); clf; 

18 for i=1:batches, 

19 semilogy(cpu(: ,1),cpu(:,(it1)),’.’,’LineWidth’ ,2); hold on; 

20 end 

21 ecpu=[cpu(:,1) ,sum(cpu(: ,2: (batches+1)) ,2)/batches]; tmp=ecpu(:,2)./exp(ecpu(: ,1)); 
22 Becua (tan) dlmmar= 1): m=[dimmin,dimmax]; semilogy (m, (B/35) *(exp(1)+2).7m) ; 


§ A.10 Vertices per cell and cell ratio 


1 % numveachcell.m 

2 clear all; dimmin=2; dimmax=6; batches=5; nmax=3000; 

3 rand(’state’,sum(100*clock)); 

4 for i=dimmin:dimmax, 

5 for j=1:batches, 

6 n=round(nmax*2/i); x=rand(n,i); [v,c]=voronoin(x) ; 
7 fleet{i,j,i}=v; fleet{i,j,2}=c; fleet{i,j,3}=n; 

8 end 

9 end 


10 for i=dimmin:dimmax, 
11 for j=1:batches, 


12 v=fleet{i,j,1}; c=fleet{i,j,2}; n=fleet{i,j,3}; lend=~floor(v); 

13 hend=~* (ceil (v)-ones(size(v))); lhend=lend & hend; in=min(lhend, [] ,2); 
14 numve=[]; vcin=(]; 

15 for p=i:n, 

16 numvc=[numvc,size(c{p},2)]; flag=1; 


17 for gq=1:numvc(p) , 
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if (~in(c{p}(q))) 
flag=0; break; 


end 
end 
if (flag) 
vein=[vcin,numvc(p)]; 
end 
end 
tmpn=size(vcin,2); rcin(i,j)=tmpn/n; vec(i,j)=sum(vcin) /tmpn; 
end 


end 
dum=rcin; str={’c_{in} / c_{all}’}; dum=dum(2:dimmax,:); tmp=(]; 
for i=dimmin:dimmax, 

tmp= (tmp; i*ones(batches,1),dum((i-1),:)7]; 
end 
figure(1); semilogy(tmp(:,1),tmp(:,2),’.’,’LineWidth’,2); hold on; 
[p,s,mu]=polyfit (tmp(:,1),tmp(:,2),4); x=(dimmin: .02:dimmax)’; 
y=polyval(p,x,[],mu); semilogy(x,y); dum=vec; dum=dum(2:dimmax,:); tmp=[]; 
for i=dimmin:dimmax, 

tmp= (tmp; i*ones(batches,1),dum((i-1) ,dimmin: dimmax) ’]; 
end 
figure(2); semilogy(tmp(:,1),tmp(:,2),’.’,’LineWidth’,2); hold on; 
edum=[dum(: ,1) ,sum(dum(: ,2: (batches+1)) ,2)/batches] ; 
tmp=edum(: ,2)./exp(edum(:,1)); A=sum(tmp)/(dimmax-1); m=[dimmin,dimmax] ; 
semilogy(m, (A/70)*(exp(1)+4).7m); xlabel(’Dimension’,’FontSize’ ,14) ; 
Fabel ttt, (FontSice? ta). 
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4 thshead.tex, Kit Tiyapan 15 October 2003 

\def\Ordinate{\ifnum\day>30 1 \else\ifnum\day>20 \day-20 \else\day\fi\fi} 

\def \date{{\number\day\/{\ifcase\Ordinate\or $7{st}$\or $"{nd}$\or $-{rd}$ 

\else $~{th}$\fi}} {\ifcase\month\or January\or February\or March\or April\or 

May\or June\or July\or August\or September\or October\or November\else 

December\fi}, {\number\year}} 

\def \dat [#1:#2:#3]{\begingroup\tmp=#1 \ifnum\tmp>30 \tmp=1 \else\ifnum\tmp>20 

\advance\tmp-20 \fi\fi 

{#1\/{\ifcase\tmp\or $7{st}$\or $-{nd}$\or $-{rd}$ \else $7{th}$\fi}} #2 #3 

\endgroup} 

\input manmac % \tracingall 

4% \proofmodefalse 

\if proofmode\else\overfullrule=Opt\fi \hsize=6in \vsize=9.70820393249937in 

\maxdepth=2pt \parindent=2pc \pagewidth=\hsize \pageheight=\vsize 

\font\titlefont=cmbx10 at 15pt \font\inchhigh=cminch at 20pt 

\input epsf \input rotate \input ukhyphen \def\home{/home/mjkpjkt2} 

\def\dry#1{\ifcase#1i\or \home/ar/thesi\or \home/ts\or 

\home/tiyapan/Extremum/DsgnExReport\or \home/xfg\or \home/ths\or 

\home/tiyapan/Perco/Papers\or \home/tiyapan/Extremum/Matlab\or 

\home/ar/rci\or \home/ar/trans\or \home/ar/wn21\or \home/ar/wn23\or 

\home/ar/wn7\or \home/phy\or \home/rds\or \home/obj\or \home/voy\or 

\home/cum\or \home/flt\or \home/pcl\or \home/stp\or \home/cnm\fi} 

\def \o [#1:#2]{$#17{\hbox{\sevenrm #2}}$} 

\def\Title{Ph.D. Thesis, UMIST. K N Tiyapan.} 

\font\tenbm=cmmibi0 \font\ninett=cmtt9 \font\sixit=cmtié \font\elevenbf=cmbx11 

\font\twelvebf=cmbx12 \font\elevenex=cmex11 \font\eleveni=cmmil1 

\font\elevenit=cmti11 \font\elevenrm=cmri1 \font\twelverm=cmr12 

\font\elevensl=cmsli1 \font\elevensy=cmsy11 \font\eleventt=cmtt1il 

\def \elevenbig#1{{\hbox{$\left#1\vbox to9.35pt{}\right.\n@space$}}} 

\def\elevenpoint {\def\rm{\fam0\elevenrm} 
\textfont0=\elevenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm 
\textfonti=\eleveni \scriptfont1=\seveni \scriptscriptfont1=\fivei 
\textfont2=\elevensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy 
\textfont3=\elevenex \scriptfont3=\tenex \scriptscriptfont3=\tenex 
\def\it{\fam\itfam\elevenit} \textfont\itfam=\elevenit 
\def\sl1{\fam\slfam\elevensl} \textfont\slfam=\elevensl 
\def\bf{\fam\bffam\elevenbf} \textfont\bffam=\elevenbf 
\scriptfont\bffam=\sevenbf \scriptscriptfont\bffam=\fivebf 
\def\tt{\fam\ttfam\eleventt} \textfont\ttfam=\eleventt 
\tt \ttglue=.5em plus.25em minus.15em \normalbaselineskip=12.5pt 
\def \NF EC \manna! META}\-{\manual FONT}} \let\sc=\eightrm \let\big=\elevenbig 
\setbox\strutbox=\hbox{\vrule height8.8pt depth3.8pt width\z@} 
\normalbaselines\rm} 

\def\ [#1] {{\it #1}} \def\ G1) {{\bf #13} \def\r[#i]{{\rm #1}} 
\def\s [#1] {{\sl #1}} 

\def \beginsection#1\par{\vskip\z@ plus.05\vsize\penalty-10 % 250 

Nyaliptse plus-.05\vsize\bigskip\vskip\parskip 

Nueeeugatiid\lettlinat\bsiit \emallekip\noindent) 

\def \ifundefined#1{\expandafter\ifx\csname#1\endcsname\relax} 

\def\ix [#1] (#2) {\expandafter\def \csname#1\endcsname{#2}} 

\def \x [#1] {\ifundefined{#1}\ix [#1] ($\aleph$)\fi \csname#1\endcsname} 
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52 \def\ipno [#1] {\ifundefined{#1p}\ix [#1p] (1) \£i} 

53 \def\pno [#1] {\immediate\write\ref{\string\ix [#1p] (\number\pageno) }} 

54 \input ref \newwrite\ref \immediate\openout\ref=ref 

55 \newdimen\dtmp \newdimen\dtmpi \newdimen\dtmpii \newcount\tmp 

56 \def\Bf#1:{{\bf #13} \def\ct{\hfil\par} \def\cut{\par\vfill\break} 

57 \def\der[#1]{{\bf #1},} \def\hd#1:{\hfil{\elevenrm #1}\hfil} 

58 \def\It#1:{{\it#1}} \def\pc{\hbox{Pc}} \def\Sl#1:{{\sl#1}} 

59 \def\w#1:{\dtmpi=\hsize \advance\dtmpi-.3em \dtmpii=\dtmpi 

60 \advance\dtmpii-.3em \parshape=2 Opt \dtmpi .3em \dtmpii {\tenpoint #1.~}} 
61 \def\vws [#1]#2:#3:{{\bf #1} ({\si #2} in {\sl #3})} % explain vowel sounds 
62 \def\Lift#1#2{\raise#1em\hbox{#2}} 

63 \def\beginindex{\begingroup \parindent=1em \maxdepth=\maxdimen 

64 \def\par{\endgraf Neue ele: eee neeneee? \obeylines 

65 \everypar={\hangindent 2\parindent} \exhyphenpenalty=10000 \raggedright} 
66 \def\inxentry{\ifx\next\sub \let\next=\subentry \else\ifx\next\endindex 
67 \let\next=\vfill \else\let\next=\mainentry \fi\fi \next} 

68 \def\endindex{\mark{}\break\endgroup} 

69 \let\sub=\indent \newtoks\maintoks \newtoks\subtoks 

70 \def\mainentry#1,{\mark{}\noindent \maintoks={#1}\mark{\the\maintoks}#1,} 
71 \def \cabadtey cubed 4 mark(\the\maintcks}\indent 

72 \subtoks={#1}\mark{\the\maintoks\sub\the\subtoks}#1,} 

73 \def\boxit#1{\vbox{\hrule\hbox{\vrule\kern3pt 

74 + \vbox{\kern3pt#i\kern3pt}\kern3pt\vrule}\hrule}} 

75 \def\bxt<#1>{\vbox{\hrule\hbox{\vrule\kern.7pt 

76 Avbox (liken. Total vara Toe Pherae 7pewealed healed) 

77 \def\square#1#2{{\vcenter{\vbox{\hrule height.#2pt \hbox{\vrule width. #2pt 
78 height#ipt \kern#ipt \vrule width.#2pt \hrule height.#2pt}}}} 

79 \def\sqr{\mathchoice\square34\square34\square{2.1}3\square{1.5}3} 

80 \def\Le{\;{\raise.3em\hbox{$<$}}{\kern-.S8em\lower. 3em\hbox{$=$}}\ ;} 

g1 \def\Ge{\;{\raise.3em\hbox{$>$}}{\kern-.8em\lower. 3em\hbox{$=$}}\ ;} 

82 \def\matrix#1{\nul1\, \vcenter{\normalbaselines\m@th 


83 \ialign{\hfil $##$\hfil&&\quad\hfil$##$\hfil\crcr 
84 Nmarlsteae\erer \tonld gut \Wearn- \baselineckig] 
85 #1\crcr\mathstrut\crcr\noalign{\kern-\baselineskip}}}\,} 


86 \def\pmatrix#1{\left (\matrix{#1}\right) } 
87 \def\Cgy{\mathop{\cal G}\nolimits} 
88 \def\Cov[#1] {\hbox{${\rm C}\sp{#1} ({\cal V}) $}} 
89 \def\G1{\mathop{\raise. 23em\hbox{$>$}\kern-.71em\lower .23em\hbox{$<$}}} 
90 \def\Mod{\mathop{\rm mod}} \def\Lift#1#2{\raise#1em\hbox{#2}} 
91 \def\uncatcodespecials{\def\do##1{\catcode‘##1=12 }\dospecials} 
92 \newcount\lineno 
93 \def\setupverbatim{\tt \lineno=0 \def\par{\leavevmode\endgraf} 
94 \catcode‘\‘=\active \obeylines \uncatcodespecials \obeyspaces 
95 \everypar{\advance\lineno by1 \llap{\sevenrm\the\lineno\ \ }}} 
96 {\catcode‘\‘=\active \gdef|{\char’ 174}\gdef ‘{\relax\lq}\obeyspaces 
97 \global\let =\ } 
98 \def\listing#1{\par\smallskip\begingroup\setupverbat im\ninett\baselineskip.9em 
99 \input#1 \endgroup} 
100 \def\tran#i{\begingroup\ninepoint \baselineskip.8em\parindent=1lem\input#1 
101 \endgroup} 
102 \def\picx#1:#2:{\epsfxsize=#1 \epsffile{#2.eps}} 
103 \def\picy#1:#2:{\epsfysize=#1 \epsffile{#2.eps}} 
104 \def\nin#1:{\begingroup\baselineskiplem\leftskiplem\parindent-1em 
105 = \def \net##1:##2:##3:{{\tt ##1}{\it ##2}##3\par}\input #1\endgroup} 
106 \def\bib#1:{\begingroup\baselineskiplem\leftskiplem\parindent-1em\hbox{} 
107 \input #1\endgroup} 
108 \def arti :#2:93:#4;((\rm #1}7#27{\it #3} #4\par\smallskip} 
109 \newcount\kpc \newcount\kpd \kpd=0 \hxdc (\romannumeral\the\kpc) }}) 
110.) {\rm #1}7#37~{\it #4} #5 \x[#2].\par}\x[#2].\par} 
111 \def\kart#1 [#2] #3:#4:#5:{\ifnum\kpc>0\else\global\advance\kpd by 1\fi 
112 \global\advance\kpc by 1 \immediate\write\ref{\string\ix [#2] ( 
ii \eereurn KNT\number \kpd (\romannumeral\the\kpc)}})} {\rm #1}~#3~{\it #4} #5 
114. \x[#2].\par} 
115 \def\bbib{\begingroup\baselineskipiem\leftskip1em\parindent-1em} 
116 \def\ebib{\endgroup} 
117 \def\hxdc{{\count0=\count1 \divide\count1 by16 
118 \ifnum\counti>0 \hxdc\fi \count2=\counti \multiply\count2 by-16 
119  \advance\countO by\count2 \hexdigit}} 
120 \def\hexdigit{\ifnum\count0<10 \number\countO 
121 \else\advance\countO by-10 \advance\countO by‘A \char\countO \fi} 
122 % \pictri <file1>:<file2>:<file3>:<num1>:<num2>:<num3>: 
123 \def\pictri#1 :#2:#3:#4:#5:#6:{\smallskip 
124 = \centerline{\vbox{\dtmp=\hsize \advance\dtmp-iem 
125 \dtmpi=\hsize \advance\dtmpi-2em \divide\dtmpi by3 
126 \Nhalign to\dtmp{\hfil##\hfil&\hfil##\hfil&\hfil##\hfil\cr 
127 \epsfxsize=\dtmpi \epsffile{#1.eps} &\epsfxsize=\dtmpi \epsffile{#2.eps} & 
128 \epsfxsize=\dtmpi \epsffile{#3.eps} \cr (#4) &(#5) &(#6)\cr}}}} 
129 % \picqua <file1>:<file2>:<file3>:<file4>:<numi>:<num2>:<num3>:<num4>: 
130 \def\picqua#1 : #2:#3:#4:#5:#6:#7:#8:{\smallskip 
131 \centerline{\vbox{\dtmp=\hsize \advance\dtmp-1lem 
132 \dtmpi=\hsize \advance\dtmpi-2em \divide\dtmpi by4 
133 \Nhalign to\dtmp{\hfil##\hfil&\hfil##\hfil&\hfil##\hfil&\hfil##\hfil\cr 
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\epsfxsize=\dtmpi \epsffile{#1.eps} &\ifx0#6 \else\epsfxsize=\dtmpi 
\epsffile{#2.eps}\fi &\ifx0#7 \else\epsfxsize=\dtmpi \epsffile{#3.eps}\fi & 
\ifx0#8 \else\epsfxsize=\dtmpi \epsffile{#4.eps}\fi\cr 

(#5) &\ifx0#6 \else(#6)\fi &\ifx0#7 \else(#7)\fi &\ifx0#8 \else (#8) \fi\cr}}}} 

4 \picpent <filel>:<file2>:<file3>:<file4>:<file5>:<num: 

\def\picpent#1:#2:#3:#4:#5:#6:{\smallski 
\centerline{\vbox{\dtmp=\hsize Nadvarice \duip= tani \dtmpi=\hsize 
\advance\dtmpi-2em \divide\dtmpi by5 \halign to\dtmp{\hfil##\hfil& 

\hf il##\hfil&\hfil##\hfil&\hfil##\hfil&\hfil##\hfil\cr 

\epsfxsize=\dtmpi \epsffile{#1.eps} &\ifx0#2 \else\epsfxsize=\dtmpi 
\epsffile{#2.eps}\fi &\ifx0#3 \else\epsfxsize=\dtmpi \epsffile{#3.eps}\fi & 
\ifx0#4 \else\epsfxsize=\dtmpi \epsffile{#4.eps}\fi &\ifx0#5 \else 
\epsfxsize=\dtmpi \epsffile{#5.eps}\fi\cr 

(a#6) &\ifx0#2 \else(b#6)\fi &\ifx0#3 \else(c#6)\fi &\ifx0#4 \else 

(d#6)\fi &\ifx0#5 \else(e#6) \fi\cr}}}} 

\def\picsept#1:#2:#3:#4:#5:#6:#7:#8:{\smallskip 
\centerline{\vbox{\dtmp=\hsize \advance\dtmp-lem \dtmpi=\hsize 
\advance\dtmpi-4em \divide\dtmpi by7 
\halign to\dtmp{\hfil##\hfil&\hfil##\hfil&\hfil##\hfil&\hfil##\hfils 
\hf il##\hfil&\hfil##\hfil&\hfil##\hfil\cr 
\epsfxsize=\dtmpi \epsffile{#8#1.eps} &\epsfxsize=\dtmpi \epsffile{#8#2.eps} & 
\epsfxsize=\dtmpi \epsffile{#8#3.eps} &\epsfxsize=\dtmpi \epsffile{#8#4.eps} & 
\epsfxsize=\dtmpi \epsffile{#8#5.eps} &\epsfxsize=\dtmpi \epsffile{#8#6.eps} & 
\epsfxsize=\dtmpi \epsffile{#8#7.eps} \cr}}}} 

(def \picgapus 1: #2 :83. #4: Varial lakip vconter1 ined Wwbox(\dthpe\heice 
\advance\dtmp-1em\dtmpi=\hsize \advance\dtmpi-4em \divide\dtmpi by7 
Nhalign to\dtmp{##\hfil&\hfil##\hfil&\hfil##\cr \epsfxsize=\dtmpi 
\epsffile{#4#1.eps} &\epsfxsize=\dtmpi \epsffile{#4#2.eps} & 
\epsfxsize=\dtmpi \epsfrilet#4#3 eps? \cr}}}} 

4 \pclr <dim_x>:<filename>:<directory>:<index>:<caption>: 

\def\pclr#1:#2:#3:#4:#5:{\par\begingroup\dtmp=\hsize \advance\dtmp-lem 
\dtmpi=\dtmp \advance\dtmpi-#1\advance\dtmpi-lem \smallskip \fig[#4]#5: 
\def\pcl{\centerline{\vbox{\hsize=\dtmp \hbox{\epsfxsize=#1 
\epsf file{#3#2.eps}\quad\hfil\vbox{\hsize=\dtmpi\noindent 
{\bf Figure \x[#4]} #5\smallskip}}}}}\centre{} 
\def\pcr{\centerline{\vbox{\hsize=\dtmp \hbox{\vbox{\hsize=\dtmpi\noindent 
{\bf Figure \x[#4]} #5\smallskip} \quad\hfil 
\epsfxsize=#1 \epsffile{#3#2.eps}}}}} \ipno[#4] 

\ifodd\cenanedan ondcanarie \per \else \pcl \fi\ct\smallskip\endgroup\pno [#4]} 

4 \pplr <dim_x>:<filename>:<directory>:<index>:<caption>:<paragraph>: 

\def (pplr#i: #2:83:#4:#5:#6:{\par\begingronp\dtmp-\heizve \advance\dtmp-1iem 
\dtmpi=\dtmp \advance\dtmpi-#1\advance\dtmpi-lem\smallskip \fig[#4]#5: 
\def\pcl{\centerline{\vbox{\hsize=\dtmp \hbox{\epsfxsize=#1 
\epsffile{#3#2.eps}\quad\hfil \vbox{\hsize=\dtmpi\parindent=Opt#6\hfil 
\smallskip\noindent{\bf Figure \x[#4]} #5.\smallskip}}}}} 

Naar \ pert contasiins (woos! \hedee=\ Gtii \hbox{\vbox{\hsize=\dtmpi\noindent 
#6\hfil\smallskip\noindent{\bf Figure \x[#4]} #5.\smallskip} \quad\hfil 
\hbox{\epsfxsize=#1 \epsffile{#3#2.eps}}}}}} 

\ipno [#4) \ifodd\csname#4p\endcsname \pcr \else \pcl \fi\ct\smallskip 
\endgroup\pno [#4]} 

\def \plr#1:#2:#3:#4:#5:#6:{\par\begingroup\dtmp=\hsize \advance\dtmp-1lem 
\dtmpi=\dtmp\advance\dtmpi-#1 \advance\dtmpi-lem \smallskip \fig[#4]#5: 
\def\pcl{\centerline{\vbox{\hsize=\dtmp \hbox{\epsfxsize=#1 
\epsffile{#3#2.eps}\quad\hfil\vbox{\hsize=\dtmpi\parindent=0Opt #6\hfil 
\smallskip{\bf Figure \x[#4].} #5\smallskip}}}}} 

\det per (centerline! Wwherl \iize=\dtup\hboxt whorl Wisisee\dempi aniadenteopt 
#6\hfil\smallskip{\bf Figure \x[#4].} #5\smallskip} \quad\hfil 
\hbox{\epsfxsize=#1 \epsffile{#3#2.eps}}}}}}\ipnol#2] 
\ifodd\csname#2p\endcsname \pcr \else \pcl \fi\ct\smallskip\endgroup\pno[#2]} 

\def \plrx#1:#2:#3:#4:#5:#6:{\begingroup\dtmp=\hsize \advance\dtmp-lem 
\dtmpi=\dtmp\advance\dtmpi-#1 Nad gance\dtmnd tan \smallskip 
\def\pcl{\centerline{\vbox{\hsize=\dtmp \hbox{\epsfxsize=#1 
\epsf file{#3#2.eps}\quad\hfil\vbox{\hsize=\dtmpi\noindent{#6\hfil\smallskip 
\bf #4.} #5\smallskip}}}}} \def\pcr{\centerline{\vbox{\hsize=\dtmp 
\hbox{\vbox{\hsize=\dtmpi\noindent#6\hfil\smallskip{\bf #4.} #5\smallskip} 
\quad\hfil\hbox{\epsfxsize=#1 \epsffile{#3#2.eps}}}}}} \ipno[#2] 
\ifodd\csname#2p\endcsname \pcr Reise \pel Mea \ce Veta Vali a Venderoun pao iMag 

\def \plrs#1:#2:#3:#4:#5:#6:{\begingroup\dtmp=\hsize \advance\dtmp-lem 
\dtmpi=\dtmp\advance\dtmpi-#1 Radvance\dtasi-ten \smallskip \fig[#4]#5: 
\def\pcl{\centerline{\vbox{\hsize=\dtmp \hbox{\epsfxsize=#1 \epsffile{#3#2.ps} 
\quad\hfil \vbox{\hsize=\dtmpi\noindent{#6\hfil\smallskip\bf #4.} 
#5\smallskip}}}}}\def\pcr{\centerline{\vbox{\hsize=\dtmp 
\hbox{\vbox{\hsize=\dtmpi\noindent#6\hfil\smallskip{\bf #4.} #5\smallskip} 
\quad\hfil\hbox{\epsfxsize=#1 \epsffile{#3#2.ps}}}}}} \ipno[#2] 
\ifodd\csname#2p\endcsname \pcr \else \pcl \fi\ct\smallskip\endgroup\pno [#2]} 

4 \twop:<xsizel>:<file1>:<label1>:<xsize2>:<file2>:<label2>: 

\def\twop: #1:#2:#3:#4:#5:#6: {\centerline{\hfil\epsfxsize=#1 \epsffile{#2.eps} 
\hfil\epsfxsize=#4 \epsffile{#5.eps}\hfil} 

\centerline{\hfil #3\hfil\hfil\hfil #6\hfil}} 

\def\tps :#1:#2:#3:#4:#5:#6:{\centerline{\hfil\epsfxsize=#1 \epsffile{#2.ps} 
ae aN petaeize e \epsffile{#5.ps}\hfil}\centerline{\hfil #3\hfil\hfil\hfil 
#6\hf i1}} 
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\def \twap:#1:#2:#3:#4:{\begingroup\dtmp=\hsize \divide\dtmp by2 
\advance\dtmp-lem \centerline{\hfil\epsfxsize=\dtmp \epsffile{#1.eps}\q 
\epsfxsize=\dtmp \epsffile{#3.eps}\hfil} 

\centerline{\hfil #2\hfil\hfil\hfil #4\hfil}\endgroup} 

4 \ppr<directory>:<figi>:<figid>: <fig2>:<fig2d>{<capt1>}{<capt2>} 

\def \ppr#fi :#2:#3:44:#6, #6871 \begingroup\dtmo=\hsize \advance \dtmp-3em 
\dtmpi=\dtmp\divide\dtmpi by 4 \smallskip\parindent=Opt \dtmpii=Opt 
\setbox1=\vbox{\hsize=2\dtmpi #6} \setbox2=\vbox{\hsize=2\dtmpi #7} 
\ifdim\dtmpii<\hti \dtmpii=\hti\fi \ifdim\dtmpii<\ht2 \dtmpii=\ht2\fi 
\centerline{\epsfxsize=\dtmpi \epsffile{#1#2.eps}~\epsfxsize=\dtmpi 
\epsffile{#1#3.eps}\hfil\epsfxsize=\dtmpi \epsffile{#1#4.eps}~ 
\epsfxsize=\dtmpi \epsffile{#1#5.eps}}\centerline{\vbox to\dtmpii 
{\hsize=\dtmpi\unvbox1i\vfil}\hfil\vbox to\dtmpii{\hsize=\dtmpi\unvbox2\vfil}} 
\smallskip\endgroup} 

\def \pr1lr#1:#2:#3:#4{\begingroup\dtmp=\hsize \advance\dtmp-3em \dtmpi=\dtmp 
\divide\dtmpi by 4\dtmp=\dtmpi \advance\dtmpiex \dtmpii=\dtmpi 
\advance\dtmpii-1tex \smallskip\parindent=0pt Neothosi=\ shox! \hedve=d aii 
\hfil\epsfxsize=\dtmpi \epsffile{#1#2.eps}~\epsfxsize=\dtm 
\epsffile{#1#3.eps}\hfil}\setbox2=\vbox{\hsize=2\dtmpii #4a\ 
\setbox3=\vbox{\hsize=2\dtmpii \hfill#4\smallskip} 
\def\pcl{\centerline{\copy1\hfil\copy3}} \def\pcr{\centerline{\copy2\hfil 
Ne \ifodd cananesse \oadeahane Nee \else \pcl NEA ce Nendiecoun 

pno (#3. 

\def\ptlr#1:#2:#3:#4:#5{\begingroup\dtmp=\hsize \advance\dtmp-3em \dtmpi=\dtmp 
\divide\dtmpi by 4\dtmp=\dtmpi \advance\dtmpiex \dtmpii=\dtmpi 
\advance\dtmpii-1ex\smallskip\parindent=Opt \setbox1=\vbox{\hsize=3\dtmp 
\epsfxsize=\dtmpi \epsffile{#1#2.eps}~\epsfxsize=\dtmpi \epsffile{#1#3.eps} 
~\epsfxsize=\dtmpi \epsffile{#1#4.eps}}\setbox2=\vbox{\hsize=\dtmpii #5 
\smallskip}\setbox3=\vbox{\hsize=\dtmpii \hfill#5\smallskip} 
\def\pcl{\centerline{\copyi\hfil\copy3}} \def\pcr{\centerline{\copy2\hfil 
\copy1}}\ipno [#4] \ifodd\ caummadap\ondcstiene \per \else \pcl 
\fi\ct\endgroup\pno [#4] } 

\def\capt#1:#2:#3:{\nobreak\smallskip\centerline{\dtmp=\hsize \advance\dtmp-2em 
Nebox (he ize \dtmp \noindent{\bf #1 #2} {\it #3}}}\smallskip} 

\def \balg{\begingroup\smallskip\begingroup\obeylines \sfcode ‘;=3000 
\det \bL##t] {{\bE ##1}} \def\il##i]{{\it ##1}} \def\r[##1]{{\rm ##1}}} 

\def \ealg{\par\endgroup\endgroup\smallskip} 

\def\q{\quad} \def\qq{\qquad} \def\qqq{\qq\q} \def\qaqq{\qq\qq} 
\def\qqaqqat\aq\qq\qh_ \def\qqqaqat\qq\qq\aqt 

\def \btoc{\begingroup\medskip\begingroup\parindent=0pt \obeylines 
\def\atp {\aotfill}e 

idee \atae (\vendaasup enievoun tnaaskiey 

\def \bdsc#1\edsc{\begingroup\smallskip\dtmp=\hsize \advance\dtmp-3em 

\centerline{\hfil\boxit{\vbox{\hsize=\dtmp #1}}\hfil}\par\endgroup\smallskip} 

\def\picl#1:#2:#3:#4:{\dtmp=\hsize \advance\dtmp-iem \dtmpi=\dtmp 
\advance\dtmpi-#1 \smallskip \centerline{\vbox{\halign to\dtmp{##\hfil&\hfil## 
\cr\epsfxsize=#1 \epsffile{#2.eps}&\vbox{\hsize=\dtmpi\noindent 
{\bf Figure \x[#3]} #4\smallskip}\cr}}}\smallskip} 

\def \tbvi#1 :#2:#3:#4:#5: {\begingroup\smallskip\parindent0Opt\ 
centerline{\vbox{\dtmp=\hsize \advance\dtmp-2em \dtmpi=\dtmp \divide\dtmpi by5 
\advance\dtmpi-.5em \def\h[##1] {\hskip.3em\sl##1} 
\setbox1=\vbox{\hsize=\dtmpi#1} \setbox2=\vbox{\hsize=\dtmpi#2} 
\setbox3=\vbox{\hsize=\dtmpi#3} \setbox4=\vbox{\hsize=\dtmpi#4} 
\setbox5=\vbox{\hsize=\dtmpi#5} \dtmpii=Opt\ifdim\dtmpii<\ht1 \dtmpii=\hti\fi 
\ifdim\dtmpii<\ht2 \dtmpii=\ht2\fi \ifdimdtmpii<\ht3 \dtmpii=\ht3\fi 
\ifdim\dtmpii<\ht4 \dtmpii=\ht4\fi \ifdim\dtmpii<\ht5 \dtmpii=\ht5\fi 
\halign to\dtmp{##\hfil&##\hfil&##\hfil&##\hfil&##\hfil\cr 
\vbox to\dtmpii{\hsize=\dtmpi\unvbox1i\vfil} &\vbox to\dtmpii{\hsize=\dtmpi 
\unvbox2\vfil} &\vbox to\dtmpii{\hsize=\dtmpi\unvbox3\vfil} &\vbox to 
\dtmpii{\hsize=\dtmpi\unvbox4\vfil} &\vbox to\dtmpii{\hsize=\dtmpi\unvbox5 
\vfil}\cr}}}\endgroup} 

\def \tbiv#1:#2:#3:#4:{\begingroup\smallskip\parindentOpt 
\centerline{\vbox{\dtmp=\hsize \advance\dtmp-2em \dtmpi=\dtmp 
\divide\dtmpi by4 \advance\dtmpi-.5em \def\h[##1]{\hskip.3em\sl##1} 
\setbox1=\vbox{\hsize=\dtmpi#1} \setbox2=\vbox{\hsize=\dtmpi#2} 
\setbox3=\vbox{\hsize=\dtmpi#3} \setbox4=\vbox{\hsize=\dtmpi#4} \dtmpii=Opt 
\ifdim\dtmpii<\ht1 \dtmpii=\ht1i\fi \ifdim\dtmpii<\ht2 \dtmpii=\ht2\fi 
\ifdim\dtmpii<\ht3 \dtmpii=\ht3\fi \ifdim\dtmpii<\ht4 \dtmpii=\ht4\fi 
\ifdim\dtmpii<\ht5 \dtmpii=\ht5\fi \halign to\dtmp{##\hfil&##\hfil&##\hfila#t 
\hfil\cr\vbox to\dtmpii{\hsize=\dtmpi\unvbox1\vfil} & 

\vbox to\dtmpii{\hsize=\dtmpi\unvbox2\vfil} & 
\vbox to\dtmpii{\hsize=\dtmpi\unvbox3\vfil} & 
\vbox to\dtmpii{\hsize=\dtmpi\unvbox4\vfil}\cr}}}\endgroup} 

\def \tabhead{\def\erule{\vskip.2em\hrule\vskip .2em} 
\def\pt1{\quad} \def\ptr{\hfil\quad}} 

\def \trule{\noalign{\vskip.2em\hrule\vskip.2em}} 

\def \tb1#1\1bt{\begingroup\dtmp=\hsize \advance\dtmp-3em \smallskip 
Nesiterline(\ebost he ises\ dap \halign{##\hfil&&\quad##\hfil&\quad##\hfil\cr 
#1}}}\endgroup} 

\def \f gr [#1] (#2) #3\rgf{\begingroup\dtmp=\hsize \divide\dtmp by#1 
\advance\dtm Sfen\det\pic (aail (\opetse ize \atap \epsffile{#2##1.eps}} 

\vbox{\halign{##&@\hfi1##\hf i 1é##\cr #3\cr}}}\endgroup} 
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\def \f g1 [#1]#2\lgf{\begingroup\dtmp=\hsize \divide\dtmp by#1 \advance\dtmp-1lem 
\def Vlab [##1] ¢ hbox to\dtmp{\hfil##1\hfil}} 

\centerline{\vbox{\halign{##&&\hfil##\hfil&##\cr #2\cr}}}\endgroup} 

4 \Pp<lattice>:<Pc type>:<number\(<order>),...>:<Pc prob.>:<std. error>: 

\def \Ppitt :#2:#3:#4:#5:{\be ingroup \def\ (##1) {({\bf##1}) } 

\def\Vii{Vn 2d} \der\Viidtva 3d} \def\Viis{Vn (2,3)s} 

${}-{\hbox{\sixit #1}}_{\scriptscriptstyle #3}p_#2$ $=$ $#4\pm #5$\endgroup} 

\def \X#1:#2:#3:#4:#5:{\begingroup \def\ (##1){({\bf##1})} \def\Vii{Vn od 
\def\Viii{Vn 3d} \def\Wiis{¥n (2,3)s} \ifx0#5 
${}-{\hbox{\sixit #1}}_{\scriptscriptstyle #3}x_#2$ $=$ $#4$ 
\else${}7{\hbox{\sixit #1}}_{\scriptscriptstyle #3}x_#2$ $=$ $#4\pm #5$\fi 
\endgroup} 

\def\din#1.#2.#3.#4.{\begingroup\def\der[##1]{{\bf ##1},} % #1 \latin, #2 
\tenbf , #3 \ninepoint\def\w##1:{\dtmpi=\hsize \advance\dtmpi-.3em 
\dtmpii=\dtmpi \advance\dtmpii-.3em\parshape=2 Opt \dtmpi .3em \dtmpii 
{#2 ##1.~}} \def\Bf[##1]{{\bf##1}} \def\ (#1) {{\it##1}} \def\S1 [##1] {{\s1##1}} 
\def \ [##1] {{\tt##1}} #1\dtmp=\hsize \begindoublecolumns\hsize=\dtmp 
\divide\hsize by2 \advance\hsize by-2em \baselineskip.9em\parindentOpt #3 
\input #4 \enddoublecolumns\endgroup} 

\long\def \t [#1] {\def \next{#1}{\tt\frenchspacing\expandafter\strip 
\meaning\next}} \def\strip#1>{} 

\def \idx[#1]{\beginindex\input #1\endindex} 

\def\tchd{\def\leftheadline{\hbox to \pagewidth{\vbox to 10pt{} 
\llap{\tenbf\romannumeral\folio\kernipc} \tenit\rhead\hfil}} 

Ader ei puchead linet \ibos to \pagewidth{\vbox to 10pt{} \hfil\tenit\rhead\/ 
\rlap{\kernipc\tenbf \romannumeral\folio}}}} 

\newbox\partialpage 

\def \begindoublecolumns{\dtmp=\hsize \dtmpi=\vsize\begingroup 
\out put={\global\setbox\partialpage=\vbox{\unvbox255\bigskip}}\eject 
\output={\doublecolumnout} \hsize=\dtmp \divide\hsize by2 \advance\hsize-.4em 
\vsize=\dtmpi \multiply\vsize by2 \advance\vsize by.4em} 

\def\enddoublecolumns{\output={\balancecolums}\eject 
\endgroup \pagegoal=\vsize} 

\def\doublecolumnout{\splittopskip=\topskip \splitmaxdepth=\maxdepth 
\dtmp=\dtmpi \dimen@=\dtmp \advance\dimen@ by-\ht\partialpage 
\setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@ 

\onepageout \pagesofar\unvbox255 \penalty\outputpenalty} 

Adee \ papesotar( uanvbos wartialpade 
\wd0=\hsize \wd2=\hsize \hbox to\pagewidth{\box0\hfil\box2}} 

\def \balancecolumns{\setbox0=\vbox{\unvbox255} \dimen@=\ht0 
\advance\dimen@ by\topskip \advance\dimen@ by-\baselineskip 
\divide\dimen@ by2 \splittopskip=\topskip{\vbadness=10000 \loop 
\global\setbox3=\copy0 \global\setbox1=\vsplit3 to\dimen@ 
\ifdim\ht3>\dimen@ Netball advance \ainend byipt \repeat}\setbox0=\vbox to 
\dimen@{\unvbox1}\setbox2=\vbox to\dimenat noe boaa} aresotar) 

\def\begindoublecols{\dtmp=\hsize \dtmpi=\vsize\begingroup 
\out put={\global\setbox\partialpage=\vbox{\unvbox255\bigskip}}\eject 
\output={\doublecolout} \divide\dtmp by2 \advance\dtmp-2em \hsize=\dtmp 
\multiply\dtmpi by2 \advance\dtmpi by 2em \vsize=\dtmpi } 

\def \enddoublecols{\output={\balancecols}\eject 
\endgroup \pagegoal=\vsize} 

\def\doublecolout{\splittopskip=\topskip \splitmaxdepth=\maxdepth 
\dtmp=\dtmpi \dimen@=\dtmp \advance\dimen@ by-\ht\partialpage 
\setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@ 
\onepageout\pagesofar \unvbox255 \penalty\outputpenalty} 

\def \pa dgefar{\unvbox \pavedadoace\ed0e\hoiee Nydae\heiee \hbox to\pagewidth 
{\box0\hf il\box2}} 

\def \balancecols{\setbox0=\vbox{\unvbox255} \dimen@=\ht0 \advance\dimen@ by 
\topskip \advance\dimen@ by-\baselineskip\divide\dimen@ by2 
\splittopskip=\topskip{\vbadness=10000 \loop \global\setbox3=\copy0 
\global\setboxi=\vsplit3 to\dimen@\ifdim\ht3>\dimen@ 
\global\advance\dimen@ byipt \repeat}\setbox0=\vbox to\dimen@{\unvbox1} 
\setbox2=\vbox to\dimen@{\unvbox3}\pagesofar} 

\def \begintriplecolumns{\dtmp=\hsize \dtmpi=\vsize \begingrou 
Nout pEtet \piobal \aetbox \nareial page-\ehor (\uashox 266 Wei pan ip ages 
\output={\triplecolumnout} \hsize=\dtmp \divide\hsize by3 
\advance\hsize by-.4em\vsize=\dtmpi \multiply\vsize by3 \advance\vsize by.4em} 

\def \endtriplecolumns{\output={\balancethreecolumns}\eject 
\endgroup \pagegoal=\vsize} 

\def\triplecolumnout{\splittopskip=\topskip \splitmaxdepth=\maxdepth 
\dtmpii=\dtmpi \dimen@=\dtmpii \advance\dimen@ by-\ht\partialpage 
\setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@ 
\setbox4=\vsplit255 to\dimen@ \onepageout \pagesofar 
\unvbox255 \penalty\outputpenalty} 

\def \pagesofar{\unvbox\partialpage \wd0=\hsize \wd2=\hsize \wd4=\hsize 
\hbox to\pagewidth{\box0\hfil\box2\hfil\box4}} 

\def \balancethreecolumns{\setbox0=\vbox{\unvbox255} \dimen@=\ht0 
\advance\dimen@ by\topskip \advance\dimen@ by-\baselineskip 
\divide\dimen@ by3 \splittopskip=\topskip{\vbadness=10000 \loop 
\global\setbox5=\copy0 \global\setbox1=\vsplit5 to\dimen@ 
\global\setbox3=\vsplit5 to\dimen@ \ifdim\ht5>\dimen@ 
\global\advance\dimen@ byipt \repeat} \setbox0=\vbox to\dimen@{\unvbox1i} 
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\setbox2=\vbox to\dimen@{\unvbox3}\setbox4=\vbox to\dimen@{\unvbox5} 
\pagesofar} 

4 cf. manmac.tex 

\def \onepageout#1{\shipout\vbox{\offinterlineskip\vbox to 3pc{\iftitle 
\global\titlefalse\setcornerrules\else\ifodd\pageno \rightheadline\else 
\leftheadline\fi\fi\vfill} \vbox to Neageledahe! \atupe\heize 
\advance\dtmp byipc \ifvoid\margin\else \rlap{\kern\dtmp\vbox to\z@{\kern4pt 
\box\margin \vss}}\fi #1 \ifvoid\footins\else \vskip\skip\footins \kern-3pt 
\hrule height\ruleht width\pagewidth \kern-\ruleht \kern3pt \unvbox\footins\fi 
\boxmaxdepth=\maxdepth}}\advancepageno} 

\def \pap#1{\begingroup\parindent=1em \ninepoint\input #1\endgroup} 

\def \1hd [#1] {\leftline{\(\tenrm\bf #1)}}\def\chd[#1]{\centerline{\(\tenrm #1)}} 

\def \qte [#1] [#2] {\begingroup\dtmp=\hsize \advance\dtmp-3em 
\setbox1=\vbox{\hsize=\dtmp \parindent=Opt #1\smallskip\rightline{#2}} 
\atie1dkdip\ centerline {\copsd) veualVerip\and roup} 

\def\quo [#1]{\begingroup \def\|{\par} \dtmp=\hsize \advance\dtmp-5em 
NestborisWibort (ieee dtmp \parindent=Opt #1} 
\smallskip\centerline{\copy1}\smallskip\endgroup} 

\def\bitm[#1]{\smallskip\begingroup \def\itm{\item{#1}}} 

\def \eitm{\endgroup\smallskip} 

\def\btmn#i\etmn{\smallskip\begingroup \tmp=0 

\def\itm{\advance\tmp by 1 \item{\the\tmp.}} #1\endgroup\smallskip} 

\def \btma#1\etma{\smallskip\begingroup \tmp=96 

\def\itm{\advance\tmp by 1 \item{\char\tmp.}} #1\endgroup\smallskip} 

\def \btab [#1] #2\etab{\centerline{\setbox1=\vbox{#2} \vbox{\halign{#1\let |=& 
\let+#=\cr \copy1}}}} 

\def\tdim{\dtmp=\hsize \advance\dtmp by-2em \hsize=\dtmp} 

\newcount\pam \pam=96 

\def \lox (#1) [#2] {\centerline{{\twelvebf #1}}\global\advance\pam by 1 
\begingroup\medskip\begingroup\parindent=O0pt \obeylines 
\immediate\write\ref{\string\ix [#2] (\char\the\pam) } 
\immediate\write\ref{\string\ix [#2n] (#1) } 
\immediate\write\ref{\string\ix [#2p] (\romannumeral\the\pageno) } 

\ix G#1] (\char\the\pam) \ix[#2n] (#1) \ix[#2p] (\romannumeral\the\pageno) 
\ifundefined{toc} N ige\idmedinte\etita\ro. 1 = [aol \x [#2n] \hfil\dotfill 
\x[#2p]}\fi\input #2 \endgroup\endgroup\bigskip} 

\def \loxx (#1) [#2] {\centerline{{\twelvebf #1}} 
\begingroup\medskip\parindent=0pt\obeylines \input #2 \endgroup} 

\def \loy (#1) [#2] {\centerline{{\twelvebf #1}}\global\advance\pam by 1 
\begingroup\medskip\begingroup\parindent=0pt \obeylines 
\immediate\write\ref{\string\ix [#2] (\char\the\pam) } 
\immediate\write\ref{\string\ix [#2n] (#1) } 
\immediate\write\ref{\string\ix [#2p] (\number\pageno) } 

\ix G#1] (\char\the\pam) \ix[#2n] (#1) \ix[#2p] (\number\pageno) 
\ifundefined{toc} Nalae\ immediate \esita\tort\x [a2 \x [#2n] \hfil\dotfill 
\x [#2p]}\fi\endgroup\endgroup\bigskip} 

\def\15z (#1) [#2] t\center line {i \twelvebf #1}}\par\bskp\input #2 } 

\newcount\apc \apc=64 

\def\app [#1] #2:#3:{\par\vfill\break 
\global\advance\apc by 1 \immediate\write\ref{\string\ix [#1] (\char\the\apc) } 
\immediate\write\ref{\string\ix [#1n] (#2)} 
\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 

\ix(#1] (\char\the\apc) \ix[#in] (#2) \ix[#1p] (\number\pageno) 
\beginchapter {\Title\ Appendix} {}{\char\apc}. {\x[#in]}\ ar 
\ifundefined{toc} \else\immediate\write\toc{\x [#1]. \x[#1n]\hfil\dotfill 
\x[#ip]}\fi\stn=0 \alc=0 \fgc=0 \tbc=0 \cac=0 \tmc=0 \asm=0 \dfc=0 

\S\ \BE \x[#1]. \x[#1n]:\par \begingroup\input #3 \endgroup\par} 

\newcount \cch 

\def \chp [#1]#2:#3:{\par\vfill\break\global\advance\cch by 1 \ifodd\pageno 
\else\advance\pageno by 1 \fi \dnmediate\urite\ref{\string\is [ei] Cehevceh)) 
Mumediate\seata refit eevine Wiz [in] (#2)) 
\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 

\ix [#1] (\the\cch) \ix[#1n] (#2) \ix [#1 1 Gtnambar eageno) 

\beginchapter {\Title\ Chapter} {}{\x[#1]}. {\x[#1n]}\par 

\ifundefined{toc} \else\immediate\write\toc{\x[#1]. \x[#1n]\dotfill\x[#1ip]}\fi 
\stn=0 \alc=0 \fgc=0 \tbc=0 \cac=0 \tmc=0 \asm=0 \dfc=0 

{\elevenpoint\S\ \Bf \x[#1]. \x[#1n]:}\par \begingroup\input #3 \endgroup\par} 

\newcount \stn 

\def\sap [#1]#2:#3:{\global\advance\stn by 1\beginsection 
\s\_{\bf\x [#1] \x[#in]}\par Nig[at] (\char\the\a c.\the\stn) \ix[#1n] (#2) 

\ix [#1p] (\number\pageno) \ifundefined{toc} \else\immediate\write\toc{\q\x [#1]. 
\x [#1n] \dotfill\x[#ip]}\fi \immediate\write\ref{\string\ix [#1] (\char\the\apc. 
\the\stn) }\immediate\write\ref{\string\ix[#1n] (#2)} 
\immediate\write\ref{\string\ix [#1p] (\number\pageno)}\begingroup\input #3 
\endgroup\par} 

\def\sct [#1]#2:#3:{\global\advance\stn by 1 
\immediate\write\ref{\string\ix [#1] (\the\cch. \the\stn) } 
\immediate\write\ref{\string\ix [#1n] (#2)} 

\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 

\ix [#1] (\the\cch.\the\stn) \ix[#1n] (#2) Nix[# ipl Cknumban\paeeuio) \beginsection 
\ifundefined{toc} \else\immediate\write\toc{\q\x[#1]. \x[#1n]\dotfill\x[#1ip]} 
\fi \S\ {\bf\x[#1] \x[#in]}\par \begingroup\input #3 \endgroup\par} 
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\newcount \alc 

\def \alg [#1]#2:{\par\global\advance\alc by 1 
Nininediacé\arita ref {leering \ix [fll (tha och: \the\alc)} 
\immediate\write\ref{\string\ix [#1n] (#2)} 

\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 
\ix [#1] (\the\cch. \the\alc) Cx Lin] (#2) \ix [#1p] (\number\pageno) 
\ifundefined{loq}\else\immediate\write\loq{\x [#1]. \x{[#1 ny \dotfill\x [#1p]}\ fi} 

\newcount \eqc 

\def\eqn{\global\advance\eqc by 1 
Noanet (\bf\the\eqc) _{\hbox{\sevenrm\romannumeral\the\cch}}}} 

\def\eql{\global\advance\eqc by 1 
(\bf\the\eqc) _{\hbox{\sevenrm\romannumeral\the\cch}}} 

\def \eqa [#1J#2:{\global\advance\eqce by 1 
\immediate\write\ref{\string\ix [#1] (\the\cch. \the\eqc) } 
\immediate\write\ref{\string\ix [#1n] (#2)} 
\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 

\ix [#1] (\the\cch.\the\eqc) \ix[#1in] (#2) NILE pl Cuber a eno) 
\eqno{(\bf\the\eqc) _ P\hocx{\ecganei\ Gassandersd\ the cenit 

\def \eqal [#1] #2: {\global\advance\eqc by 1 
\immediate\write\ref{\string\ix [#1] (\the\cch. \the\eqc) } 
\immediate\write\ref{\string\ix [#in] (#2) } 
\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 

\ix [#1] (\the\cch.\the\eqc) \ix[#1 ny (#2) \ix [#1 HT number oaeedel 
(\bE\ elie ede) {ibe t cerania\womannumaral che veoh 

\newcount \fgc 

\def \tig [#1 t#2: {\par\global\advance\fgc by 1 
\inmediate\erite ref \string ie #1] (vtbe\cch: \the\fgc) } 
\immediate\write\ref{\string\ix [#1n] (#2) } 

\ifundef ined{#1p}\immediate \write\ref {\string\ix [#1p] (\number\pageno) } 
\ix [#1p] (\number\pageno) \fi\ix [#1] (\the\cch.\the\fgc) \ix[#1n] (#2) 
\ifundofined{lof}\eise\immediate\write\lof{\z [#1] . \x [#1n] \dotfill\x [#1p]}\fi} 

\newcount \tbc 

\def \tab [#1]#2:{\par\global\advance\tbc by 1 

\immediate\write\ref Netring\is [Nil (che \cch: \the\tbc) } 
\immediate\write\ref{\string\ix [#1n] (#2)} 
\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 
\ix [#1] (\the\cch.\the\tbc) \ix[#1 ny (#2) Nic Lio! Cunumber Ba eno) 
\ifundefined{lot} \else\immediate\write\lot{\x [#1]. \x[#1n]\dotfill 
\x [#1p] }\f£i} 

\newcount \cac 

\def\proclaim #1. #2\par{\medbreak\noindent{\bf#1.\enspace}{\sl#2\par} 

\ifdim\lastskip<\medskipamount \removelastskip\penalty55\medskip\fi} 

\def \cly [#1]#2:#3\par{\par\global\advance\cac by 1 
\immediate\write\ref{\string\ix [#1] (\the\cch. \the\tme [\the\cac] )} 
\immediate\write\ref{\string\ix [#1n] (#2)} 

\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 

\ix [#1] (\the\cch. \the\tmc [the \cae]) \ix [#1 ny (2) \ix [#1p] (\number\pageno) 
\proclaim Corollary \x[#1]. #3\par 
\ifundefined{lom}\else\immediate\write\lom{\x [#1]. \x[#1n]\dotfill\x[#1p]}\fi} 

\newcount \asm 

\def \asu[#1]#2:#3\par{\par\global\advance\asm 
\immediate\write\ref{\string\ix [#1] (\the\cch. Mere \aaes 
\immediate\write\ref{\string\ix [#1n] (#2)} 
\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 

\ix [#1] (\the\cch.\the\tmc) \ix[#1in] (#2) Nix ipl Canunibad \pagenel 
\proclaim Assumption \x[#1]. #3\par\ifundefined{los} \else 
\immediate\write\los{\x [#1]. \x[#1n]\dotfill\x[#1p]}\fi} 

\newcount \dfc 

\def \dfn[#1]#2:#3\par{\par\global\advance\dfc 
\immediate\write\ref{\string\ix [#1] (\the\cch. \the\ate) } 
\immediate\write\ref{\string\ix [#1n] (#2)} 

\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 

\ix [#1] (\the\cch. \the\tmc) Cx Lain] (#2) Ma TH is Gaunben agate) 

\proclaim Definition \x[#1]. #3\par 
\ifundefined{lod}\else\immediate\write\lod{\x [#1]. \x[#1n]\dotfill\x[#1p]}\fi} 

\newcount \tmc 

\def \thm[#1]#2:#3\par{\par\global\advance\tmc 
\immediate\write\ref{\string\ix [#1] (\the\cch. \epatteld 
\immediate\write\ref{\string\ix [#in] (#2) } 
\immediate\write\ref{\string\ix [#1p] (\number\pageno) } 

\ix [#1] (\the\cch.\the\tmc) \ix[#1 ny (#2) Nix ipl (\numbad pagel 

\proclaim Theorem \x[#1]. #3\par 
\ifundefined{lom}\else\immediate\write\lom{\x[#1]. \x[#1n]\dotfill\x[#1p]}\fi} 
\def \xp [#1] {\immediate\write\ref {\string\ix [#1] (\number\pageno) } 

\ix [#1] (\number \pageno) } 

\def \mctb (#1: #2:#3:#4:#5:#6:#7:#8]{\smallskip\begingroup\dtmp=\hsize 
\advance\dtmp2em \divide\dtmp by7 \dtmpi=Opt \setbox1=\vbox{\hsize=\dtmp #3} 
\dtmpii=\ht1 \ifdim\dtmpii>\dtmpi \dtmpi=\dtmpii\fi 
\setbox1=\vbox{\hsize=\dtmp#4} \dtmpii=\ht1 \ifdim\dtmpii>\dtmpi 
\dtmpi=\dtmpii\fi \setbox1=\vbox{\hsize=\dtmp #5} \dtmpii=\ht1 
\ifdim\dtmpii>\dtmpi \dtmpi=\dtmpii\fi \setbox1=\vbox{\hsize=\dtmp #6} 
\dtmpii=\ht1 \ifdim\dtmpii>\dtmpi \dtmpi=\dtmpii\fi 
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\setbox1=\vbox{\hsize=\dtmp #7} \dtmpii=\ht1 \ifdim\dtmpii>\dtmpi 
\dtmpi=\dtmpii\fi \setbox1=\vbox{\hsize=\dtmp #8} \dtmpii=\ht1 
\ifdim\dtmpii>\dtmpi \dtmpi=\dtmpii\fi \centerline{\vbox{\halign{##\hfil& 
##\hfil&##\hfilg##\hfile##\hfilg##\hfil\cr \multispan{6}{\hfill#1\hfill}\cr 
\trule\vbox{\hsize=\dtmp\parindent=0pt~\[Cell]} & 
\vbox{\hsize=\dtmp\parindent=Opt~\ [Bond] }&\vbox{\hsize=\dtmp\parindent=Opt 
~\[ce11]} B\ybor { hedze=\dtmp \paxindont=Opt\\[band|} 
&\vbox{\hsize=\dtmp\parindent=0pt~\[vertex]} &\vbox{\hsize=\dtmp\parindent=0pt 
“\Ledge]} \cr #2\cr Nbor to\dtmpi{\hsize=\dtmp\parindent=0pt #3\hfil\vfill} 
&\vbox to\dtmpi{\hsize=\dtmp\parindent=Opt #4\hfil\vfill} 

&\vbox to\dtmpi{\hsize=\dtmp\parindent=Opt #5\hfil\vfill} 

&\vbox to\dtmpi{\hsize=\dtmp\parindent=Opt #6\hfil\vfill} 

&\vbox to\dtmpi{\hsize=\dtmp\parindent=Opt #7\hfil\vfill} 

&\vbox to\dtmpi{\hsize=\dtmp\parindent=Opt #8\hfil\vfill}\cr}}}\endgroup} 

\def \mvmm (#1; #2; #3 ,#4;#5,#6) {\begin roup\sevonrm\detboxi=\hbox{ #i$ paste? 
\ifx0#4\def\tmpa{#3}\else\def\tmpa{#3\times 10°{#4}}\fi 
\ifx0#6\def\tmpb{#5}\else\def\tmpb{#5\times 10°{#6}}\fi 
$\mathrel{\mathop{\copy1}\limits_{\tmpa\at op\tmpb}}$\endgroup} 

\def \cn (#1 ,#2/#3) {\begingroup\sevenrm Vsetboxi=\hbox{#1 [#3] } dtmp=\wd1 
\setbox2=\hbox{\fiverm#3} \ifdim\wd2>\dtmp \dtmp=\wd2\fi 
\setbox2=\hbox{\fiverm#3}$\mathop{\copyi}\limits_{\copy2}$\endgroup} 

4 2-homohedral tilings 

\def \hm#1.{\begingroup\def \ (##1) {{\rm ##1}} \ifcase#1\or 
$3_3[3°3] 7_1[3°7]$\or$3_3 [373] 9_3[379] _\ (II) $\or$4_4[374]8_4[378]$\or 
$3_3[3°3]8_2[378] $\or$3_3[3°3]9_3[3°9] _\ (III) $\or$4_3 [374] 10_6[37{10}]_\(1)$ 
\or$3_3[3°3]9_3[3°9]_\(1I) $\or$4_2[374] 10_4[37{10}]$\or 
$4_3[3°4]10_6[37{10}] _\ (II) $\or$4_2[3°4]8_2[3°8]$\or$4_3[374]8_3[3°8]_\ (1) $\or 
$4_3[374]8_3[378] _\(II) $\or$4_3[374]8_3[378]_\(III) $\or 
$4_4[3°4]7_2[3°7] _\ (II) $\or$3_3 [373] 12_6[37{12}] $\or$4_4[3°4]7_2[3°7]_\(1)$ 
\or$5_4[3°5]7_4[377]_\ (1) $\or$3_1[473]5_1[475]_\(I) $\or 
$3_1[4°3]5_1[4°5] _\ (11) $\or$5_3[375]8_6[3°8] _\(II) $\or 
$5_3[375]8_6[378] _\ (IIT) $\or$5_2[375]12_{12} [3° {12}]$\or 
$5_4[3°5]7_4[377] _\ (11) $\or$5_3[375]8_6[378]_\(I) $\or 
$4_2[374]12_6[37{12}] $\or$4_2([374]18_{12}[37{18}] $\or$5_3[3°5]7_3[3°7]_\(1)$ 
\or$5_3[3°5]7_3[3°7]_\ (11) $\or$3_2 [4°3]5_2[475] _\(I) $\or 
$3_2 [473]5_2[475]_\ (II) $\or$3_3 [473]5_3[475] $\or$3_1[473]6_2[476]_\(I) $\or 
$3_1[4°3]6_2[476] _\ (II) $\or$3_2 [473]6_4[4°6] $\or$3_3[473]6_6[476]$ 
\or$3_1[473]8_4[478] $\or$3_1[573]4_2[574]_\ (1) $\or$3_1[5°3]4_2[574] $\or 
$3_2[5°3]4_4[574]$\fi\endgroup} 

\def\kittix{$\raise.1em\hbox{$>$}$\kern-.2em\raise.118em\hbox{:}Kittix} 

\def\blr{\begingroup \dtmp=\hsize \advance\dtmp-lem \dtmpi=\dtmp 
\advance\dtmpi-lem \divide\dtmpi by2 \parindentOpt \def\stn{\smallskip} 
\def\bl##1]{\bf ##1} \def\[##1]{\it ##1} 

\def \1##1: ##2:{\setbox0=\vbox{\hsize=\dtmpi\sl##1} 
\setbox1=\vbox{\hsize=\dtmpi##2}\ifnum\ht0>\ht1 \dtmpii=\ht0 \else 
\dtmpii=\hti \fi\centerline{\vbox to\dtmpii{\hsize=\dtmpi\sl##1}\hfil\vbox to 
\dtmpii{\hsize=\dtmpi##2}}}} 

\def \elr{\endgroup} 

\def \wra [#1] [#2] [#3] {\begingroup\baselineskip=2em 
\setbox1=\hbox{#3}$\aleph (\hbox{#1}) =$ 

$\bigl\{$[#2], (\unhbox1) $\bigr\}$\endgroup} 

\def \wes [#1] [#2] [#3] [#4] {$\aleph (\hbox{#1}) =8 $\bigl\{$ [#2], (#3), $\langle$#4 
$\rangle$ $\bigr\}$} 

\def \head#1{\hbox{} \vskip#1} \def\setcornerrules{} \def\inpt[#1]{\input #1} 

\def\beginchapter#1 #2#3. #4\par{\global\exno=0 \subsecno=0 \def\chapno{#2#3} 
\titlepage\def\\{ }\message{#1 #2#3:} \xdef\rhead{#1 #2#3: #4\unskip} 

\vsk iomt\deg \Tex{T\kern--dem\Lower. Gex\hbox(E} \eern-. 0Gen xX} 

\def \NF{{\vbox to30pt{}\manual ()+#+,-.*}}\def\\{#3} 

\ifx\empty\\ \ifodd\pageno \rightline{\inchhigh \kern-.04em}\else 
\leftline{\inchhigh \kern-.04em}\fi\else\ifodd\pageno 
\rightline{\inchhigh #3\kérn- 04am} \elae\loftidnet \inchhigh #3\kern- .04em} 

\fiNt i\vskip [spot basel iileakip 16pt \lineskiplimit \titlelsl \lineskip 3pt 
\let\\=\cr} \tenpoint\noindent \ignorespaces} 

\def \dct :#1:#2:#3:{\dtmp=\hsize \begindoublecolumns\hsize=\dtmp 
\divide\hsize by2\def\rhead{\firstmark\hfil{\tenit #1--#2 dictionary}\hfil 
\botmark}\def\leftheadline{\hbox to \pagewidth{\vbox to 10pt{} 
\llap{\tenbf\folio\kernipc}\tenbf\rhead}} 

\def\rightheadline{\hbox to \pagewidth{\vbox to 10pt{}\tenbf\rhead 
\rlap{\kern1ipc\tenbf\folio}}}\baselineskip.9em\parindent=Opt\eightpoint 
\input #3\enddoublecolumns\cut} 

\def \rightharpoonupfill{$\m@th\smash-\mkern-7mu \cleaders\hbox{$\mkern-2mu 
\smash-\mkern-2mu$}\hfill\mkern-7mu\mathord\rightharpoonup$} 

\def \overrightharpoonup#1{\vbox{\m0th\ialign{##\crcr \rightharpoonupfill\crcr 
\noalign{\kern-\p@\nointerlineskip}$\hfil\displaystyle{#1}\hfil1$\crcr}}} 

\def \pet#1\tep{\begingroup\dtmp=\hsize \advance\dtmp by 3em 
\conterline{ \itiil \weorl \pardndent=Opt\leftekin=sen #1}\hfi1ll}\endgroup} 

\def \another (#1) [#2] {\global\advance#1 by 1 
\immediate\write\ref{\string\ix [#2] (\the#1)}} 

% \input grammar 

\input language 

\as1\bengali\chem\czech\daiy\deutsch\espanlol\francjais\gaelic\grammar\hindi 
\hungarian\lanna\latin\lating\math\money\nihongo\norge\pali\physics\polish 
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\russian\sanskrit\serbo\slovak\vietnamese\zhongwen 
4 rm dstidx.tex 

4 sort -f index.tex > dstidx.tex 

4 edit dstidx.tex, replace ‘_!0’ by ‘,’ 

vi Hien append \parindent= -3em \leftskip3em to top 
4h 1. replace _! by , 

4; 2. append \be indoublecolumns\beginindex at top 
4h and \endiides enddoublecoimne at end 


A.12 Language macros for TpX 


1 
2 


4 language.tex (c) 2002 (2003) Kit Tiyapan, September 2003. 
Nde#\euT {det Vag. 1\d u} \def\oq.{\d o} \def\uoq.{\d uo} 


\def\iq.{\d i} \def\eq.{\d e} \def\ieq.{\d ie} \def\aq.{\d a} 

\def\aoq.{\d ao} \def\oaq.{\d oa} \def\uigq.{\d ui} \def\iug.{\d iu} 
\def\ouq.{\d ou} \def\ueq.{\d ue} \def\oeq.{\d oe} \def\aeq.{\d ae} 
\def\euq.{\d eu} \def\iaq.{\d ia} \def\aqch.{\d ach} \def\aqct.{\d act} 
\def\aqsp.{\d asp} \def\oqss.{\d oss} \def\eqnt.{\d ent} \def\iqde.{\d ide} 


\def\iqnt.{\d int} 
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\def\th.{\‘t} \def\Th.{\‘T} \def\tsh.{\‘ts} \def\Tsh.{\‘Ts} \def\tzh.{\‘tz} \def\Tzh.{\‘Tz} 


\def\bh. {\‘b} \def\Bh. {\‘B} 
\def\bsh.{\‘bs} \def\Bsh. {\‘Bs} \def\sh.{\‘s} \def\Sh. {\‘S} 
\def\ch. {\‘c} \def\ch.{\‘C} \def\dh.{\‘s} \def\Dh. {\‘D} 
\def\fh. {\‘f} \def\Fh.{\‘F} \def\gh.{\‘g} \def\Gh. {\‘G} 
\def\gdh. {\‘gd} \def\Gdh.{\‘Gd} \def\hh.{\‘h} \def\Hh. {\‘H} 
\def\jh.{\‘\j} \def\Jh.{\‘J} \def\kh.{\‘k} \def\Kh. {\‘k} 
\def\lh. {\‘1} \def\Lh.{\‘L} \def\zh.{\‘z} \def\Zh. {\‘Z} 
\def\ph.{\‘p} \def\Ph.{\‘P} \def\rh.{\‘r} \def\Rh. {\‘R} 
\def\vh.{\‘v} \def\Vh.{\‘V} \def\wh.{\‘w} \def\wh. {\‘w} 
\def\xh. {\‘x} \def\Xh.{\‘X} \def\yh.{\‘y} \def\Yh. {\‘¥} 
\def\ysh.{\‘ys} \def\Ysh.{\‘Y¥s} \def\qh.{\‘q} \def\Qh. {\‘Q} 
\def\tz.{\’t} \def\Tz.{\’T} \def\tsz.{\’ts} \def\Tsz.{\’Ts} 
\def\tzz.{\’tz} \def\Tzz.{\’Tz} \def\bz.{\’b} \def\Bz. {\’B} 
\def\bsz.{\’bs} \def\Bsz.{\’Bs} \def\sz.{\’s} \def\Sz.{\’S} 
\def\cz.{\’c} \def\Cz.{\’C} \def\dz.{\’s} \def\Dz.{\’D} 
\def\fz.{\’f} \def\Fz.{\’F} \def\gz.{\’g} \def\Gz. {\’ G} 
\def\gdz.{\’gd} \def\Gdz.{\?Gd} \def\hz.{\’h} \def\Hz.{\’H} 
\def\jz.{\’\j} \def\Jz.{\’ J} \def\kz.{\’k} \def\Kz.{\’k} 
\def\1z.{\’1} \def\Lz.{\’L} \def\zz.{\’z} \def\Zz.{\’Z} 
\def\pz.{\’p} \def\Pz.{\’P} \def\rz.{\’r} \def\Rz.{\’R} 
\def\vz.{\’v} \def\Vz.{\’V} \def\wz.{\’w} \def\Wz.{\’ W} 
\def\xz.{\’x} \def\Xz.{\’X} \def\yz.{\’y} \def\Yz.{\’ ¥} 
\def\ysz.{\’ys} \def\Ysz.{\’Ys} \def\qz.{\’q} \def\Qz.{\’Q} 
\def\ty.{\"t} \def\Ty.{\"T} \def\tsy.{\"ts} \def\Tsy.{\*Ts} 
\def\tyy.{\“ty} \def\Tyy.{\"Ty} \def\by.{\~b} \def\By.{\"B} 
\def\bsy.{\"bs} \def\Bsy.{\"Bs} \def\sy.{\7s} \def\Sy.{\7S} 
\def\cy.{\*c} \def\Cy. AG “C} \def\dy.{\"s} \def\Dy.{\*D} 
\def\fy.{\"f} \def\Fy.{\"F} \def\gy.{\"g} \def\Gy.{\"G} 
\def\gdy.{\"gd} \def\Gdy.{\7Gd} \def\hy.{\7h} \def\Hy.{\7H} 
\aed Vy. (\"\9) \def\Jy.{\7J} \def\ky.{\"k} \def\Ky.{\7K} 
\def\ly.{\71} \def\Ly.{\*L} \def\yy.{\*y} \def\Yy.{\7Y} 
\def\py.{\*p} \def\Py.{\"P} \def\ry.{\"r} \def\Ry.{\"R} 
\def\vy.{\*v} \def\Vy.{\"V} \def\wy.{\*w} \def\Wy.{\"W} 
\def\xy.{\"x} \def\Xy.{\"X} \def\yy.{\"y} \def\Yy.{\7¥} 
\def\ysy.{\"ys} \def\Ysy.{\"Ys} \def\qy.{\7q} \def\Qy.{\7Q} 
\def\tq.{\d t} \def\Tq. fa 7 


\def\tsq.{\d ts} \def\Tsq. ita Ts} \def\tqq.{\d tq} \def\Tqq.{\d Tq} 
\def\bq.{\d b} \def\Bq.{\d B} \def\bsq.{\d bs} \def\Bsq.{\d Bs} 


\def\sq.{\d s} \def\Sq.{\d S} \def\cq.{\d c} \def\Cq.{\d C} 
\def\dq.{\d s} \def\Dq.{\d D} \def\fq.{\d f} \def\Fq.{\d F} 


\def\gq.{\d g} \def\Gq.{\d G} \def\gdq.{\d gd} \def\Gdq.{\d Gd} 
\def\hq.{\d h} \def\Hq.{\d H} \def\jq.{\d \j} \def\Jq.{\d J} 
\def\kq.{\d k} \def\Kq.{\d K} \def\lqq.{\d 1} \def\Lq.{\d_ L} 


\def\qq.{\d q} \def\Qq.{\d Q} \def\pq.{\d p} \def\Pq.{\d P} 
\def\rq.{\d r} \def\Rq.{\d R} \def\vq.{\d v} \def\Vq.{\d V} 
\def\wq. {\d “ \def\Wq.{\d W} \def\xq.{\d x} \def\Xq.{\d X} 


\def\wq.{\d w} \def\yq.{\d y} \def\Yq.{\d Y} \def\ysq.{\d ys} \def\Ysq.{\d Ys} 


\aet\byh. {\‘b 
\def\cniz.{cn 


\def\qq. {\d a \def\Qq. {\d 
‘€ *\i} \def\Cniz.{Cn\’? I} 


\def\mfiz.{mf\’\i} \def\Mfiz.{Mf\’I} \def\myah. {my\‘a} \def\Myah. {My\‘a} 


\def\myaz.{my\’a} \def\Myaz.{My\’ a} 
\def\iqde.{\d ide}\def\vzl.{\’vl} \def\Vz1.{\’V1}} 


\def \bengali{\def\aa.{\=a} \def\Aa.{\=A} \def\ii.{\=\i} Aas {\=I} 


\def\uu.{\=u} \def\Uu.{\=U} \def\rq.{\d r} \def\Rq. {\d 
\def\mq.{\d m} \def\Mq.{\d_M} \def\hq.{\d h} \def\Hq.{\d H} 
\def\nx.{\.n} \def\Nx.{\.N} \def\nl. t\- “n} \def\N1. {\~N} 


\def\tq.{\d t} \def\Tq.{\d T} \def\tqh.{\d th} \def\Tqh.{\d Th} 
\def\dq.{\d d} \def\Dq.{\d D} \def\dqh.{\d dh} \def\Dqh.{\d Dh} 


q Qh 
\def\Byh.{\‘By} \def\tqy.{\d{\"t} \def\Tqy. {\d{\*T}}} 
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\def\nq.{\d n} \def\Nq.{\d N} \def\sz.{\’s} \def\Sz.{\’S} 
\def\sq.{\d s} \def\Sq.{\d S}} 


\def \chem{\def \fmr [##1] {\hbox{$\rm ##1$}} \def\dgc{\hbox{$*\circ\hbox{C}$}}} 
\def\czech{\def\cz.{\’c} \def\Cz.{\’C} \def\yz.{\’y} \def\Yz.{\’Y}} 


\def\daiy{\def\av.{\v a} \def\Av.{\v A} \def\ah.{\‘a} \def\Ah. {\‘A} 
\def\af.{\=a} \def\Af.{\=A} \def\az.{\’?a} \def\Az.{\’ A} 

\def\aq.{\d a} \def\Aq.{\d A} \def\aqv.{\d{\v a}} \def\Aqv. {\d{\v A}} 
\def\aqh. {\d{\‘a}} \def\Agh. {\d{\‘A}} \def\aqf.{\d{\=a}} \def\Aqf.{\d{\=A}} 
\def\aqz. {\d{\’a}} \def\Aqz.{\d{\’ A}} 

\def\iv.{\v\i}_ \def\Iv.{\v I} \def\ih.{\‘\i} \def\Ih. {\‘I} 
\def\if.{\=\i} \def\If.{\=I} \def\iz.{\’\i} \def\Iz.{\’ I} 

\def\iq.{\d i} \def\Iq.{\d I} \def\iqv. {\d{\v\i}} \def\Iqv. {\d{\v I}} 

\def\igh. {\d{\‘\i}} \def\Igh. {\d{\‘I}} \def\igf.{\d{\=\i}} \def\Iqf.{\d{\=1}} 
\def\iqz. {\d{\’\i}} \def\Igz.{\d{\’I}} 

\def\uev.{\v ue} \def\Uev.{\v Ue} \def\ueh.{\‘ue} \def\Ueh. {\‘Ue} 
\def\uef.{\=ue} \def\Uef.{\=Ue} \def\uez.{\’ue} \def\Uez.{\’Ue} 

\def\uge.{\d ue} \def\Uge.{\d Ue} \def\ugev.{\d{\v u}e} \def\Ugev.{\d{\v U}e} 
\def\ugeh. {\d{\‘u}e} \def\Ugeh.{\d{\‘U}e} \def\ugef.{\d{\=u}e} \def\Ugef .{\d{\=U}e} 
\def\ugez. {\d{\’u}e} \def\Ugez. {\d{\’ U}e} 

\def\uv.{\v u} \def\Uv.{\v U} \def\uh.{\‘u} \def\Uh. {\‘U} 

\def\uf.{\=u} \def\Uf.{\=U} \def\uz.{\’?u} \def\Uz. {\’U} 

\def\uq.{\d u} \def\Uq.{\d U} 

\def\uqv. {\d{\v u}} \def\Uqv.{\d{\v_U}} \def\ugh. {\d{\‘u}} \def\Ugh. {\d{\ ‘U}} 

\def\uqf. {\d{\=u}} \def\Ugf .{\d{\=U}} \def\uqz. {\d{\’u}} \def\Uqz. {\d{\’? U}} 
\def\ev.{\v e} \def\Ev.{\v E} \def\eh.{\‘e} \def\Eh. {\‘E} 

\def\ef.{\=e} \def\Ef.{\=E} \def\ez.{\’e} \def\Ez.{\’E} 

\def\eq.{\d e} \def\Eq.{\d E} \def \eqv. {\d{\v e}} \def\Eqv. {\d{\v E}} 

\def\eqh. {\d{\‘e}} \def\Eqh. {\d{\‘E}} \def\eqf.{\d{\=e}} \def\Eqf.{\d{\=E}} 
\def\eqz. {\d{\’e}} \def\Eqz.{\d{\’ E}} 

\def\aev.{\v ae} \def\Aev. Ka Ae} \def\aeh.{\‘ae} \def\Aeh. {\‘Ae} 
\def\aef.{\=ae} \def\def.{\=Ae} \def\aez.{\’ae} \def\Aez.{\’ de} 

\def\age.{\d ae} \def\Age.{\d Ae} \def\agev.{\d{\v ale} \def\Agev.{\d{\v A}e} 
\def\ageh. {\d{\ ‘a}e} \def\Aqeh.{\d{\‘A}e} \def\aqef.{\d{\=a}e} \def\Agef.{\d{\=A}e} 
\def\agez. {\d{\’a}e} \def\Aqez. {\d{\’ A}e} 

\def\ov.{\v o} \def\Ov.{\v 0} \def\oh.{\‘o} \def\Oh. {\‘0} 

\def\of.{\=o} \def\Of.{\=0} \def\oz.{\’o} \def\0z.{\’ 0} 

\def\oq.{\d 0} \def\Oq.{\d 0} \def\oqv.{\d{\v o}} \def\Oqv. {\d{\v 0}} 

\def\ogh. {\d{\‘o}} \def\Ogh.{\d{\‘0}} \def\oqf.{\d{\=o}} \def\Oqf. {\d{\=0}} 
\def\oqz. {\d{\’ 0}} \def\ogz.{\d{\’ o}} 

\def\auv.{\v au} \def\Auv.{\v Au} \def\auh.{\‘au} \def\Auh. {\‘ Au} 
\def\auf.{\=au} \def\Auf.{\=Au} \def\auz.{\’au} \def\Auz.{\’ Au} 

\def\aqu.{\d au} \def\Aqu.{\d Au} \def\aquv. {\d{\v a}u} \def\Aquv.{\d{\v A}u} 
\def\aquh. {\d{\ ‘a}u} \def\Aquh.{\d{\‘A}u} \def\aquf.{\d{\=a}u} \def\Aquf.{\d{\=A}u} 
\def\aquz. {\d{\’a}u} \def\Aquz.{\d{\’ A}u} 

\def\oev.{\v oe} \def\Oev.{\v Oe} \def\oeh.{\‘oe} \def\Jeh. {\‘ Oe} 

\def\oef.{\=oe} \def\Oef.{\=Oe} \def\oez.{\’ oe} \def\0ez.{\’ De} 
\def\oge.{\d oe} \def\Oqge.{\d Oe} 
\def\ogev.{\d{\v o}e} \def\Ogev.{\d{\v_ O}e} \def\ogeh.{\d{\‘o}e} \def\Ogeh. {\d{\‘O}e} 
\def\ogef.{\d{\=o}e} \def\Ogef.{\d{\=O}e} \def\ogez.{\d{\’ o}e} 
\def\Ogez. {\d{\’O}e} \def\oqeez. {\d{\’ o}ee} 
\def\iav.{\v\i a} \def\Iav.{\v Ia} \def\iah.{\‘\i a} \def\Iah.{\‘Ia} 
\def\iaf.{\=\i a} \def\Iaf.{\=Ia} \def\iaz.{\’\i a} \def\iaz.{\’\i a} 

\def\iga.{\d ia} \def\Iga.{\d Ia} \def\igav. {\d{\v\i}a} \def\Igav.{\d{\v I}a} 
\def\igah. {\d{\‘\i}a} \def\Iqah. {\d{\‘I}a} \def\iqaf.{\d{\=\i}a} \def\Iqaf.{\d{\=I}a} 
\def\igaz.{\d{\’\ita} \def\Iqaz.{\d{\’I}a} 

\def\uav.{\v ua} \def\Uav.{\v Ua} \def\uah.{\‘ua} \def\Uah. {\‘Ua} 

\def\uaf.{\=ua} \def\Uaf.{\=Ua} \def\uaz.{\’ua} \def\Uaz.{\’Ua} 

\def\uga.{\d ua} \def\Uqa.{\d Ua} 

\def\ugav.{\d{\v u}a} \def\Uqav.{\d{\v U}a} \def\uqah.{\d{\‘u}a} \def\Uqah. {\d{\‘U}a} 

\def\ugaf.{\d{\=u}a} \def\Ugaf.{\d{\=U}a} \def\uqaz.{\d{\’u}a} \def\Ugaz.{\d{\’U}a} 
\def\oav.{\v oa} \def\Oav.{\v Oa} \def\oah.{\‘oa} \def\Qah. {\‘Oa} 

\def\oaf.{\=oa} \def\Oaf.{\=Oa} \def\oaz.{\’oa} \def\0az.{\’ 0a} 

\def\oqa.{\d oa} \def\Oqa.{\d Oa} \def\oqav.{\d{\v o}a} \def\Oqav.{\d{\v O}a} 
\def\oqgah. {\d{\‘o}a} \def\Ogah.{\d{\‘O}a} \def\oqaf.{\d{\=o}a} \def\Oqah. {\d{\=O}a} 
\def\oqaz. {\d{\’o}a} \def\Oqaz.{\d{\’ O}a} 

\def\amq.{a\d m} \def\Amq.{A\d m} \def\amqv.{\v a\d m} \def\Amqv.{\v A\d m} 
\def\amgh.{\‘a\d m} \def\Amqh.{\‘A\d m} \def\ammgh.{\‘a\d m\d{\"m}} 
\def\amqf.{\=a\d m} \def\Amqf.{\=A\d m} \def\amqz.{\’a\d m} \def\Amqz.{\’A\d m} 

\def\aiv.{\v ai} \def\aiv.{\v ai} \def\aih.{\‘ai} \def\aih.{\‘ai} \def\aif.{\=ai} 
\def\aif.{\=ai} \def\aiz.{\’ai} \def\aiz.{\’ai} 

\def\aiq.{a\d i} \def\Aqi.{\d Ai} \def\aiqv.{\v a\d i} \def\Aiqv.{\v A\d i} 
\def\aigh.{\‘a\d i} \def\Aigh.{\‘A\d i} \def\aigf.{\=a\d i} \def\Aigf.{\=A\d i} 
\def\aigqz.{\’a\d i} \def\Aigz.{\’A\d i} 

\def\aov.{\v ao} \def\Aov.{\v Ao} \def\aoh.{\‘ao} \def\Aoh. {\‘Ao} 

\def\aof.{\=ao} \def\Aof.{\=Ao} \def\aoz.{\’ao} \def\Aoz.{\’ Ao} 
\def\augh.{\‘a\d u} \def\Augh.{\‘A\d u} 
\def\tq.{\d t} \def\Tq.{\d T} \def\tqh.{\d th} \def\Tqh.{\d Th} 
\def\kqh.{\d kh} \def\Kqh.{\d Kh} \def\gq.{\d g} \def\Gq.{\d G} 
\def\dq.{\d d} \def\Dq.{\d D} \def\dz. ay \def\Dz.{\’D} 
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\def \dqz. {\d{\’d}} \def\Dqz.{\d{\’D}} \def\dgh.{\d dh} \def\Dqh.{\d Dh} 
\def\nq.{\d n} \def\Nq.{\d N} \def\bq.{\d b} \def\Bq.{\d B} 
\def\fq.{\d £} \def\Fq.{\d F} \def\hq.{\d h} \def\Hq.{\d H} 
\def\1lqq.{\d 1} \def\Lq.{\d L} \def\rq.{\d r} \def\Rq.{\d R} 
\def\sq.{\d s} \def\Sq.{\d S} \def\yq.{\d y} \def\¥q.{\d Y} 
\def\lz.{\’1} \def\Lz.{\’L} \def\sz.{\’s} \def\Sz.{\’S} 
\def\ae.{\"a} \def\bge.{\d{\"b}} \def\eee.{\"e} \def\nge.{\"ng} \def\ke. {\"k} 
\def\me.{\"m} \def\ne.{\"n} \def\ye.{\"y} 
\def\ax.{\.a}\def\Ax.{\.A}\def\aux.{\.au}\def\aux.{\d{\.a}u}\def\Aux. {\d{\. A}u} 
\def\bx. {\.b}\def\bhx.{\.bh} \def\cx.{\.c} \def\dx.{\.d} \def\dhx.{\.dh} 
\def\dqhx. {\d{\.dh}} \def\dzx.{\’dx} \def\fx.{\.f} \def\fqx.{\d{\.£}} 
\def\gx.{\.g} \def\ghx.{\.gh} \def\hx.{\.h} \def\hqx.{\d{\.h}} \def\kx.{\.k} 
\def\khx.{\.kh} \def\lx.{\.1} \def\mx.{\.m} \def\nx.{\.n} 
\def\ngx. {\d{\.n}} \def\px.{\.p} \def\rx.{\.r} \def\sx.{\.s} \def\sqx.{\d{\.s}} 
\def\szx.{\d{\’s}} \def\tx.{\.t} \def\thx.{\.th} \def\tqx. {\d{\.t}} \def\tqhx.{\d{\.th}} 
\def\vx.{\.v} \def\yx.{\.y} \def\yqx.{\d{\.y}} \def\zx.{\.z}} 
\def\deutsch{\def\acc{{\it acc}} \def\datv{{\it dat}} \def\eie{{\it e-e}} 
\def\eim{{\it e-m}} \def\eir{{\it e-r}} \def\etw{{\it et}} \def\gen{{\it gen}} 
\def\jm{{\it jm}} \def\jn{{\it jn}} \def\ohn{{\it ohn.}} \def\de.{\"A} \def\ae. {\"a} 
\def\0e. {\"0} \def\oe .{\"o} \def\Ue.{\"U} \def\ue.{\"u} \def\Ss.{\ss }} 
\def\espanlol{\def\nl.{\"n} \def\N1.{\7N}} 
\def\francjais{\def\qch{{\it q.ch.}} \def\Az.{\’A} \def\az.{\’a} 
\def\Ez. {\E} \def\ez.{\’e} \def\Ah.{\‘A} \def\ah.{\‘a} \def\Eh.{\‘E} \def\eh. {\‘e} 
\def\Ey.{\"E} \def\ey.{\7e} \def\Iy.{\7I} \def\iy.{\7\i} \def\Ie.{\"I} \def\ie.{\"\i}} 
\def\ aslic{\def \ah. {\‘a} \def\Ah.{\’A} \def\eh.{\‘e} \def\Eh. {\’E} 
\def\ih.{\‘\i} \def\Ih.{\‘I} \def\oh.{\‘o} \def\Oh.{\‘O} \def\uh.{\‘u} \def\Uh. {\‘U}} 
\def\grammar{\def\ab{{\it abrv}} \def\adv{{\it adv}} \def\adj{{\it adj}} 
\def\ant{{\it ant}} \def\arcc{{\it archaic} \def\atb{{\it atrib}} 
\def\auxi{{\it aux}} \def\brit{{\it Brit.}} \def\cca{{\it circa}} 
\def\cf{{\it cf}} \def\chem{{\it chem}} \def\chss{{\it chess}} 
\def\cnj{{\it conj}} \def\cnst{{\it const}} \def\clfr{{\it classf}} 
\def\col{{\it col}} \def\cor{{\it corrupt}} \def\dd{$\ldots$} 
\def\de{{\it derog}} \def\dtm{{\it_ det}} \def\dto{{\it ditto}} 
\def\dy{{\it dy}} \def\eg{{\it eg}} \def\esp{{\it esp}} 
\def\etc{{\it etc}} \def\et1l{{\it et al}} \def\etal{{\it et al}} 
\def\expr{{\it expr}} \def\f{{\it f}} \def\figu{{\it figk} \def\fml{{\it fm1}} 
\def\Fr{{\it Fr.}} \def\ger{{\it Ger.}} \def\gram{{\it gram}} 
\def\grk{{\it Gr.}} \def\humou{{\it humour.}} \def\ibid{{\it ibid.}} 
\def\idst{{\it i.e.}} \def\ifm{{\it infml}} \def\imp{{\it imp}} 
\def\ind{{\it ind}} \def\inj{{\it intj}} \def\joc{{\it joc}} 
\def\jpn{{\it Jpn.}} \def\lan{{\it Lan.}} \def\lat{{\it Lat}.} 
\def\law{{\it law}} \def\lo{{\it loc}} \def\1t{{\it lit}} 
\def\m{{\it m}} \def\mat{{\it math}} \def\matl{{\it mat}} 
\def\med{{\it med}} \def\mil{{\it mil}} \def\mo{{\it mod}} 
\def\mt{{\it m\d oay}} \def\n{{\it n}} \def\nom{{\it nom}} 
\def\nt{{\it nt}} \def\nym{{\it acronym}} \def\ob{{\it obs}} 
\def\oen{{\it 0.E.}} \def\ofr{{\it 0O.Fr.}} \def\on{{\it ono}} 
\def\os{{\it o.s.}} \def\pa{{\it Pa.}} \def\part{{\it part}} 
\def\pl{{\it pl}} \def\pn{{\it pn}} eae pres. part.}} 
\def\pres{{\it pres}} \def\prp{{\it prp}} \def\prs{{\it prs}} 
\def\prf{{\it prf}} \def\qed{{\it q.e.d.}} \def\qntf{{\it quantf}} 
\def\rad{{\it rad}} \def\refl{{\it refl}} \def\rh{{\it rhe}} 
\def\rp{\lower4pt \hbox{{\tenrm\~ {}}}\raise4pt\hbox{}} \def\smb{{\it sb}} 
\def\sfx{{\it sfx}}\def\sic{{\ninepoint [sic]}} \def\sk{{\it Sk.}} 
\def\slng{{\it sl}} \def\sng{{\it sing}} \def\st{{\it sth}} 
\def\subj{{\it subj.}} \def\dai{{\it Th.}} \def\theor{{\it theor}} 
\def\us{{\it usu}} \def\vb{{\it v}} \def\viz{{\it viz.}} 
\def\vs{{\it vs}} \def\vul{{\it vul}}} 
\def\hindi{\def\aa.{\=a} \def\Aa.{\=A} \def\ii.{\=\i} \def\Ii.{\=I} 
\def\uu.{\=u} \def\Uu.{\=U} \def\rq.{\d r} \def\Rq.{\d R} 
\def\nx.{\.n} \def\Nx.{\.N} \def\nl.{\"n} \def\N1.{\~N} 
\def\nq.{\d n} \def\Nq.{\d N} \def\sz.{\’s} \def\Sz.{\’S} 
\def\sq.{\d s} \def\Sq.{\d S} \def\kq.{\d k} \def\Kq.{\d kK} 
\def\kqh.{\d kh} \def\Kgh.{\d Kh} \def\gq.{\d_ g} \def\Gq.{\d G} 
\def\rq.{\d r} \def \Rq. t\d R} \def\rgh.{\d rh} \def\Rqh.{\d Rh}} 


\def \hungarian{\def\az.{\’a}_ \def\Az.{\’A} \def\ez.{\’e} \def\Ez.{\’E} 
\def\iz.{\’\i} \def\Iz.{\’I} \def\oe.{\"o0} \def\de. {\"0} 

\def\ow.{\H 0} \def\Ow.{\H 0} \def\uz.{\’u} \def\Uz.{\’U} 
\def\ue.{\"u} \def\Ue.{\"U} \def\uw.{\H u} \def\Uw.{\H U}} 


\def\lanna{\def\av.{\v a} \def\Av.{\v A} \def\ah.{\‘a} \def\Ah. {\‘ A} 
\def\ay.{\"a} \def\Ay.{\"A} \def\af.{\=a} \def\af.{\=A} 
\def\az.{\’a} \def\Az.{\’A} 

\def\aq.{\d a} \def\Aq.{\d A} \def\aqv.{\d{\v a}} \def\Aqv. {\d{\v A}} 
\def\agh. {\d{\‘a}} \def\Agh. {\d{\‘A}} \def\aqy.{\d{\"a}} \def\Aqy. {\d{\~A}} 
\def\aqf.{\d{\=a}} \def\Agf.{\d{\=A}} \def\aqz.{\d{\’a}} \def\Aqz.{\d{\’ A}} 

\def\iv.{\v\i} \def\Iv.{\v I} 

\def\ih. {\‘\i} \def\Ih.{\‘1I} \def\iy.{\7\i} \def\Iy.{\7I} 
\def\if.{\=\i} \def\If.{\=I} \def\iz.{\’\i} \def\Iz.{\’?I} 

\def\iq.{\d i} \def\Iq.{\d I} \def\iqv. {\d{\v\i}} \def\Iqv.{\d{\v I}} 

\def\igh. {\d{\‘\i}} \def\Igh.{\d{\‘I}} \def\igy.{\d{\7\i}} \def\Iqy. {\d{\*I}} 
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\def\igf.{\d{\=\i}} \def\Igf.{\d{\=I}} \def\iqz.{\d{\’\i}} \def\Iqz. {\d{\’ I}} 

\def\uev.{\v ue} \def\Uev.{\v Ue} \def\ueh.{\‘ue} \def\Ueh. {\‘Ue} 

\def\uey.{\"ue} \def\Uey.{\"Ue} \def\uef.{\=ue} \def\Uef .{\=Ue} 
\def\uez.{\’ue} \def\Uez. {\’Ue} 

\def\uge.{\d ue} \def\Uge.{\d Ue} \def\ugev.{\d{\v u}e} \def\Ugev.{\d{\v U}e} 
\def\uqeh. {\d{\‘u}e} \def\Ugeh. {\d{\‘U}e} \def\ugey.{\d{\"u}e} \def\Ugey.{\d{\"U}e} 
\def \ugef . {\d{\=u}e} Agee der: {\d{\=U}e} \def\ugez.{\d{\’u}e} \def\Ugez. {\d{\’ Use} 

\def\uv.{\v u} \def\Uv.{\v 
\def\uh.{\‘u} \def\Uh. {\‘ vb \def\uy.{\*u} \def\Uy. {\*U} 

\def\uf.{\=u} \def\Uf.{\=U} \def\uz.{\’u} \def\Uz. {\’U} 

\def\uq.{\d u} \def\Uq.{\d U} \def\uqv. {\d{\v u}} \def\Uqv. {\d{\v U}} 

\def\ugh. {\d{\‘u}} \def\Ugh. {\d{\‘U}} \def\uqy. {\d{\"u}} \def\Uqy. {\d{\"U}} 
\def\uqf.{\d{\=u}} \def\Ugf.{\d{\=U}} \def\uqz. {\d{\’u}} \def\Uqz. {\d{\’ U}} 

\def\ev.{\v e} \def\Ev.{\v E} \def\eh.{\‘e} \def\Eh.{\‘E} \def\ey.{\7e} \def\Ey. {\7E} 
\def\ef.{\=e} \def\Ef.{\=E} \def\ez.{\’e} \def\Ez.{\’E} 

\def\eq.{\d e} \def\Eq.{\d E} \def\eqv.{\d{\v e}} \def\Eqv. {\d{\v E}} 

\def\eqgh. {\d{\‘e}} \def\Eqh.{\d{\‘E}} \def\eqy.{\d{\"e}} \def\Eqy. {\d{\"E}} 
\def\eqf. {\d{\=e}} \def\Eqf.{\d{\=E}} \def\eqz.{\d{\’e}} \def\Eqz. {\d{\’E}} 

\def\aev.{\v ae} \def\dev.{\v Ae} 

\def\aeh.{\‘ae} \def\Aeh. {\‘Ae} \def\aey.{\"ae} \def\Aey.{\7Ae} 
\def\aef.{\=ae} \def\Aef.{\=Ae} \def\aez.{\’ae} \def\Aez.{\’ Ae} 

\def\age.{\d ae} \def\Aqe.{\d Ae} \def\agev. {\d{\v a}e} \def\Aqev.{\d{\v A}e} 
\def\ageh. {\d{\ ‘a}e} \def \igelr {\d{\‘A}e} \def\agey.{\d{\"a}e} \def\Agey.{\d{\7 A}e} 
\def \agef.{\d{\=a}e} \def\Agef.{\d{\=A}e} \def\aqez.{\d{\’a}e} \def\Aqez.{\d{\’ A}e} 

\def\ov.{\v o} \def\Ov.{\v 0} \def\oh.{\‘o} \def\Oh.{\‘0} \def\oy.{\70} \def\Oy.{\70} 
\def\of.{\=o} \def\Of.{\=0} \def\oz.{\’o} \def\0z.{\’ 0} 

\def\oq.{\d 0} \def\0q.{\d 0} \def\oqv.{\d{\v 0o}} \def\Oqv. {\d{\v 0}} 

\def\ogh. {\d{\‘o}} \def\Ogh.{\d{\‘0}} \def\oqy.{\d{\"o}} \def\dqy. {\d{\~0}} 
\def\oqf. {\d{\=0}} \def\Ogf .{\d{\=0}} \def\oqz. {\dt\’ o}} \def\oqz. {\d{\’o}} 

\def\ouv.{\v ou} \def\Ouv.{\v Ou} \def\ouh.{\‘ou} \def\Ouh. {\‘Ou} 
\def\ouy.{\*ou} \def\Ouy.{\7Qu} \def\ouf.{\=ou} \def\Ouf.{\=Ou} 
\def\ouz.{\’?ou} \def\Ouz. {\’ Ou} 

\def\oug.{o\d u} \def\Ouq.{O\d u} \def\ouqv.{\v o\d u} \def\Ouqv.{\v O\d u} 
\def\ough.{\‘o\d u} \def\Ouqh.{\‘O\d u} \def\ougy.{\*o\d u} \def\Ouqy.{\*O\d u} 
\def\ougqf.{\=o\d u} \def\Ougf.{\=0\d u} \def\ougz.{\’o\d u} \def\ougz.{\’o\d u} 

\def\oqu.{\d ou} \def\Oqu.{\d Ou} \def\oquv.{\d{\v o}u} \def\Oquv.{\d{\v O}u} 
\def\oquh. {\d{\‘o}u} \def\Oquh.{\d{\‘0}u} \def\oquy.{\d{\*o}u} \def\Oquy. {\d{\*0}u} 
\def\oquf.{\d{\=o}u} \def\Oquf.{\d{\=O}u} \def\oquz.{\d{\’o}} \def\oquz.{\d{\’ o}u} 

\def\auv.{\v au} \def\Auv.{\v Au} \def\auh.{\‘au} \def\Auh. {\‘ Au} 

\def\auy.{\~au} \def\Auy.{\"Au} \def\auf.{\=au} \def\Auf.{\=Au} 
\def\auz.{\’au} \def\Auz. {\’ Au} 

\def\auq.{a\d u} \def\Auq.{A\d u} \def\auqv.{\v a\d u} \def\Auqv.{\v A\d u} 
\def\augh.{\‘a\d u} \def\Augh.{\‘A\d u} \def\augy.{\~a\d u} \def\Augy.{\7A\d u} 
\def\auqf.{\=a\d u} \def\Auqf.{\=A\d u} \def\auqz.{\’a\d u} \def\Auqz.{\’A\d u} 

\def\aqu.{\d au} \def\Aqu.{\d Au} 

\def\aquv.{\d{\v a}u} \def\Aquv.{\d{\v_ A}u} \def\aquh.{\d{\‘a}u} \def\Aquh. {\d{\‘A}u} 
\def\aquy. {\d{\*a}u} \def\Aquy.{\d{\*A}u} \def\aquf.{\d{\=a}u} \def\Aquf .{\d{\=A}u} 
\def\aquz.{\d{\’a}u} \def\Aquz.{\d{\’ A}u} 

\def\aiv.{\v ai} \def\aiv.{\v ai} \def\aih.{\‘ai} \def\aih.{\‘ai} 
\def\aiy.{\"ai} \def\aiy.{\"ai} \def\aif.{\=ai} \def\aif.{\=ai} 
\def\aiz.{\’ai} \def\aiz.{\’ ai} 

\def\aov.{\v ao} \def\Aov.{\v Ao} \def\aoh.{\‘ao} \def\Aoh. {\‘ Ao} 
\def\aoy.{\7ao} \def\Aoy.{\"Ao} \def\aof.{\=a0} \def\Aof .{\=Ao} 
\def\aoz.{\’ao} \def\Aoz. {\’ Ao} 

\def\amq.{a\d m} \def\Amq.{A\d m} \def\amqv.{\v a\d m} \def\Amqv.{\v A\d m} 
\def\amgh. {\‘a\d m} \def\Amgh.{\‘A\d m} \def\amgy.{\*a\d m} \def\Amqy.{\7A\d m} 
\def\amqf.{\=a\d m} \def\Amgf.{\=A\d m} \def\amqz.{\’a\d m} \def\Amqz.{\’A\d m} 

\def\oav.{\v oa} \def\Oav.{\v Oa} \def\oah.{\‘oa} \def\Qah. {\‘0a} 

\def\oay.{\7oa} \def\Oay.{\7Oa} \def\oaf.{\=oa} \def\Oaf.{\=0a} 
\def\oaz.{\’oa} \def\Qaz. {\’ Oa} 

\def\oqa.{\d oa} \def\Oqa.{\d Oa} \def\oqav.{\d{\v o}a} \def\Oqav.{\d{\v O}a} 
\def\oqah. {\d{\‘o}a} \def\Ogah. {\d{\‘O}a} \def\ogay.{\d{\*o}a} \def\Oqgay.{\d{\*O}a} 
\def\ogaf.{\d{\=o}a} \def\Ogah.{\d{\=O}a} \def\oqaz.{\d{\’o}a} \def\Oqaz.{\d{\’ O}a} 

\def\iav.{\v\i a} \def\Iav.{\v Ia} \def\iah.{\‘\i a} \def\Iah.{\‘Ia} 

\def\iay.{\"\i a} \def\Iay.{\"Ia} \def\iaf.{\=\i a} \def\Iaf.{\=Ia} 
\def\iaz.{\’\i_ a} \def\iaz.{\’\i a} 

\def\iqa.{\d ia} \def\Iga.{\d Ia} \def\iqav.{\d{\v\i}a} \def\Iqav.{\d{\v I}a} 
\def\igah. {\d{\‘\i}a} \def\Iqah. {\d{\‘I}a} \def\igay.{\d{\*\i}a} \def\Iqay.{\d{\*I}a} 
\def\iqaf.{\d{\=\i}a} \def\Iqaf.{\d{\=I}a} \def\igaz.{\d{\’\i}a} \def\Iqaz.{\d{\’ I}a} 

\def\iaq.{i\d a} \def\Iaq.{I\d a} \def\iaqv.{\v\i\d a} \def\Iaqv.{\v I\d a} 
\def\iagh.{\‘\i\d a} \def\Iagh.{\‘I\d a} \def\iagy.{\"\i\d a} \def\Iaqgy.{\"I\d a} 
\def\iagf.{\=\i\d a} \def\Iaqf.{\=I\d a} \def\iaqz.{\’\i\d a} \def\Iaqz.{\’I\d a} 

\def\iqaq.{\d i\d a} \def\Iqaq.{\d I\d a} 

\def\iqaqv. {\d{\v\i}\d a} \def\Iqaqv.{\d{\v I}\d a} 

\def\iqagh.{\d{\‘\i}\d a} \def\Iqagh.{\d{\‘I}\d a} \def\igagy.{\d{\"\i}\d a} 
\def\Iqaqy.{\d{\*I}\d a} \def\iqagf.{\d{\=\i}\d a} \def\Iqaqf.{\d{\=I}\d a} 
\def\igagz.{\d{\’\i}\d a} \def\Iqaqz.{\d{\’I}\d_ a} 

\def\oev. Ca oe} \def\Oev.{\v Oe} \def\oeh.{\‘oe} \def\Jeh. {\‘0e} 
\def\oey.{\*oe} \def\Oey.{\"de} \def\oef.{\=0e} \def\Def .{\=0e} 
\def\oez.{\’oe} \def\Oez. {\’ Oe} 

\def\oge.{\d oe} \def\Oge.{\d Oe} \def\ogev.{\d{\v o}e} \def\Ogev.{\d{\v O}e} 
\def\ogeh. {\d{\ ‘o}e} \def\Ogeh.{\d{\‘O}e} \def\ogey.{\d{\*o}e} \def\Ogey. {\d{\*O}e} 


316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
3386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 


Ph.D. Thesis, UMIST. K N Tiyapan. Appendix A: Programs 


\def\ogef.{\d{\=o}e} \def\Ogef.{\d{\=O}e} \def\oqez.{\d{\’o}te} \def\Oqgez.{\d{\’ O}e} 

\def\uav.{\v ua} \def\Uav.{\v Ua} \def\uah.{\‘ua} \def\Uah. {\‘Ua} 

\def\uay.{\"ua} \def\Uay.{\"Ua} \def\uaf.{\=ua} \def\Uaf.{\=Ua} 
\def\uaz.{\’ua} \def\Uaz.{\’ Ua} 

\def\uga.{\d ua} \def\Uga.{\d Ua} \def\ugav.{\d{\v u}a} \def\Ugav.{\d{\v U}a} 
\def\uqah. {\d{\‘u}a} \def\Ugah. {\d{\‘U}a} \def\ugay.{\d{\"u}a} \def\Ugay.{\d{\"U}a} 
\def\ugaf.{\d{\=u}a} \def\Ugaf.{\d{\=U}a} \def\uqaz.{\d{\’u}a} \def\Ugaz.{\d{\’ U}a} 

\def\tq.{\d t} \def\Tq.{\d T} \def\tqh.{\d th} \def\Tqh.{\d Th} 

\def\dq.{\d d} \def\Dq.{\d D} \def\dgh.{\d dh} \def\Dgh.{\d Dh} 
\def\nq.{\d n} \def\Nq.{\d_ N} \def\yq.{\d y} \def \¥q. t\d Y} 
\def\sz.{\’s} \def\Sz.{\’S} \def\lqq. {\d i \def\Lq. {\d_ L} 

\def\angg. {a\d ng} \def\Angg.{A\d ng} \def\angq.{an\d g} \def\Angq. {An\d g} 
\def\hq {id h} \def\Hq.{\d H} Ace \def\Yz.{\’? ¥} 

\def\yqb. {\d{\‘y}} \def\Yqb.{\d{\‘Y}} \def\jbh.{\‘\j h} \def\Jbh. {\‘Jh} 
\def\tqbh. {\d{\‘t}h} \def\Tqbh. {\d{\ ‘T}h} \def \nb. {\ ‘n} \def\Nb. {\‘N} 
\def\pb.{\‘p} \def\Pb.{\‘P} \def\pbh.{\‘ph} \def\Pbh. {\‘Ph} 
\def\bb.{\‘b} \def\Bb.{\‘B} \def\mb.{\‘m} \def\Mb. {\‘M} 

\def\iga.{\d ia} \def\Iqa.{\d Ia} \def\lb.{\‘1} \def\Lb.{\‘L} 
\def\sb.{\‘s} \def\Sb.{\‘S} \def\na.{na} \def\Na. {Na} 

\def\yh. {\‘y}_ \def\Yh.{\‘Y} \def\pq.{\d p} \def\Pq.{\d P} 

\def\fq.{\d f£} \def\Fq.{\d F} \def\ax.{\.a} \def\Ax.{\. A}} 
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\def\latin{\def\Af.{\=A \def\af. {\=a}\def\Ef . {\=E}\def\ef.{\=e}\def\If. {\=I}\def\if.{\=\i} 


\def\Of.{\=0} \def\of.{\=o} \def\aa.{\=a} \def\Aa.{\=A} 

\def\ee.{\=e} \def\Ee.{\=E} \def\ii.{\=\i} \def\Ii.{\=1} 

\def\oo.{\=o} \def\0o.{\=0} \chardef\aE="14 \chardef\oE="1B 

\def\Aee.{\AE } \def\aee.{\aE } \def\Uee.{\OE } \def\oee.{\oE }} 

\def\lating{\def\ [##1]{{\it ##1}} \def\(##1){{\bf ##1}} \def\und{{\eightrm”and~}} 
\def \nm({veightit nom.}} \def\vo{{\eightit voc.}} \def\ac{{\eightit acc.}} 
\def\gn{{\eightit gen.}} \def\datv{{\eightit dat.}} \def\ab{{\eightit abl.}} 
\def\sg{{\eightit sg.}} \def\pl{{\eightit pl.}} 

\def\nmsg##1:{{\eightit nom.sg.} \(##1)} \def\vosg##1:{{\eightit voc.sg.} \(##1)} 
\def \acsg##1:{{\eightit acc.sg.} \(##1)} \def\gnsg##1:{{\eightit gen.sg.} \(##1)} 
\def\dtsg##1:{{\eightit dat.sg.} \(##1)} \def\absg##1:{{\eightit abl.sg.} \(##1)} 
\def \nmpl##1:{{\eightit nom.pl.} \(##1)} \def\vopl##1:{{\eightit voc.pl.} \(##1)} 
\def\acpl##1:{{\eightit acc.pl.} \(##1)} \def\gnpl##1:{{\eightit gen.pl.} \(##1)} 
\def\dtpl##1:{{\eightit dat.pl.} \(##1)} \def\abpl##1:{{\eightit abl.pl.} \ (##1)} 

\def\dif [##1]{##1\[a], ##1\[am], ##1\[ae], ##1\[ae], ##1\[\af.], 

##1\(ae), ##1\(\af.s), ##1\(\af.rum), ##1\(\if.s), ##1\(\if.s)} 

\def\diim[##1]{##1\[us], ##1\[um], ##1\[\if.], ##1\[\of.], ##1\[\of.], 

##1\(\if.), ##1\(\of.s), ##1\(\of.rum), ##1\(\if.s), ##1\(\if.s)} 

\def\diimal[##1]{\sg\nm\ ##1\[us], \vo\ ##1\[e], \ac\ ##1\[um], \gn\ ##1\[\if.], 
\dt\ ##1\[\of.], \ab\ ##1\[\of.], \pl\nm\und\vo\ ##1\(\if.), \ac\ ##1\(\of.s), 
\gn\ ##1\(\of.rum), \dt\und\ab\ ##1\(\if.s)} 

\def\diin [##1]{##1\Lum], ##1\[um], ##1\[\if.], ##1\[\of.], ##1\[\of.], 
##1\(a), ##1\(a), ##1\(\of.rum), ##1\(\if.s), ##1\(\if.s)} 

\def\diif (##1]{##1\Ler], ##1\[erum], ##1\[r\if.], ##1\[r\of.], ##1\[r\of.], 
##1\(r\if.), ##1\(r\of.s), ##1\(r\of.rum), ##1\(r\if.s), ##1\(r\if.s)} 

\def\diiia:##1[##2]{\sg\nm\und\vo\ ##1, \ac\ ##2\[em], \gn\ ##2\[is], \dt\ ##2\[\if.], 
\ab\ ##2\[e], \pl\nm, \vo\und\ac\ ##2\[\ef.s], \gn\ ##2\[um], \dt\und\ab\ ##2\[ibus]}} 

\def\math{\def\bap{\bigcap} \def\bcp{\bigcup} \def\I{\hbox{I}} \def\rar{\rightarrow} 
\def \e: ##1x##2 [##3]{\hbox{$##1\times ##27{##3}$}} 

\def\Er [##1,##2]1{$##1\pm ##2$} \def\C (##1,##2) {{}-{##1}\hbox{C}_{##2}} 
\def\Cc (##1,##2) {\pmatrix{##1\cr##2}} \def\Det |##1|{\left\vert\matrix{##1}\right\vert} 
\def \eno (##1) {\eqno{ (##1)}} \def\eln{\eqalign} \def\elno{\eqalignno} 
\def \frcL##1/##21 {(##1\overt#2}} \def\B L##1] {\hbox{##1}} 
\def\C [##1,##2] {\hbox{${}“{##1}{\rm C}_{##2}$}} 
\def\Cm [##1 , ##2]{\hbox{${}_{##1}{\rm C}_{##2}$}} 
\def \Pmu [##1 , ##2] {\hbox{${}~{##1}{\rm P}_{##2}$}} 
\def\bmap{\begingroup \def\normalbaselines{\baselineskip20pt 
\lineskip3pt \lineskiplimit3pt}} 

\def \mprt##1{\smash{\mathop{\hbox{\rightarrowfill1}}\limits~{7##17}}} 

\def \mprg##1{\smash{\mathop{\longrightarrow}\limits*{7##17}}} 

\def \mpdat#t {\Big\downarrow\rlapt$\scenter{\hbox{$\scriptstyle##1$}}$}} 

\def\emap{\endgroup} \def\mtc[##1] {\matrix{##1}} 

\det mex [#1] 1\ left [\matrixt##i}\right]} 
\def \vtr [##1:##2:##3]{##1_{##2},\ldots, ##1_{##3}} 

\outer\def\plm ##1.##2\par{\medbreak \noindent{\it##1.\enspace}##2\par 
\ifdim\lastskip<\medskipamount \removelastskip\penalty55\medskip\fi} 

\def \V [##1] {\overrightharpoonup{##1}} \def\epnr{\bar{\epsilon}} 

\def\Ar{\overline{A}} \def\Vr{{\overline{V}}} 

\def\dr{\bar{d}} \def\fr{\bar{f}} \def\nr{\bar{n}} \def\pr{\bar{p}} \def\ur{\bar{u}} 

\def\wrr{{\bar{w}}} \def\xr{\bar{x}} \def\yr{\barfy}} \def\zr{\bar{z}} 

\def\xld{\tilde{x}} \def\yld{\tilde{x}} \def\Ald{\widetilde{A}} \def\Xld{\widetilde{X}} 

\def\Ab{{\bf A}} \def\bb{{\bf b}} \def\Bb{{\bf B}} \def\cb{{\bf C}} \def\Db{{\bf S}} 
\def\Eb{{\bf E}} \def\Ib{{\bf I}} \def\Pb{{\bf P}} \def\rb{{\bf r}} \def\Tb{{\bf T}} 
\def\ub{{\bf u}} \def\xb{{\bf x}} \def\yb{{\bf y}} \def\xbh{\hat{\bf x}} 

\def\Ed{\dot{E}} \def\Fd{\dot{F}} \def\Md{\dot{M}} \def\Vd{\dot{V}} 

\def\md{\dot{m}} \def\sd{\dot{s}} \def\xd{\dot{x}} \def\yd{\dot{y}} \def\zd{\dot{z}} 
\def\xbd{\dot{\xb}} \def\aht{\hat{a}} \def\bht{\hat{b}} \def\cht{\hat{c}} 
\def\thb{{\bf\theta}} \def\thh{\hat{\theta}} 

\def\thbh{\hat{\bf\theta}} \def\xibh{\hat{\bf\xi}} 
\def\B1{{\cal B}} \def\Cl{{\cal C}} \def\F1{{\cal F}} \def\H1{{\cal H}} 


254 Ph.D. Thesis, UMIST. K N Tiyapan. Appendix A: Programs 


398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
44] 
442 
443 
444 
445 
446 
4A7 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
A474 
A475 
A476 
A77 
478 
479 


\def\NL{{\cal N}} \def\O1{{\cal 0}} \def\Pl{{\cal P}} \def\T1{{\cal_T}} 

\def\V1{{\cal V}} \def\R1{{\cal_ R}} \def\dm{{\rm d}} \def\fm{{\rm_ f}} 

\def\Am{{\rm A}} \def\Dm{{\rm D}} \def\Em{{\rm E}} \def\Im{{\rm I}} \def\Nm{{\rm N}} 
\def\Om{{\rm 0}} \def\Pm{{\rm P}} \def\Rm{{\rm R}} \def\Tm{{\rm T}} \def\Vm{{\rm V}} 
\def\Xm{{\rm X}} \def\Ym{{\rm Y}} \def\Zm{{\rm Z}} 

\def\p{\prime} \def\pp{{\prime\prime}} \def\ppp{{\prime\prime\prime}} 

\def\alp{\aleph} \der andl \hbor Landi) \der\angt angle} \def\aph{\alpha}\def\Aph{\Alpha} 
\def\apx{\approx} \def\bap{\bigcap} \def\bdbl{\begindoublecolumns} 

\def \bkh{\hbox{$\backslash$}} \def\bo{\cal 0} \def\bop{\bigoplus} 

\def\bskp{\bigskip} \def\bta{\beta} \def\bup{\bigcup} \def\cdt{\cdot} \def\cds{\cdots} 

\def\css{\times} \def\cir{\circ \def \dgf\hboxt$“\circ$}}\def \dit{\delta} \def\D1t{\Delta} 

\def\dtr{\bigtriangledown} \def\edbl{\enddoublecolumns} \def\eightp{\eightpoint} 

\def\ems{\emptyset} \def\epn{\epsilon} \def\Epn{\Epsilon} \def\f1l1{\forall} 

\def\fnt{\footnote} \def\gmm{\gamma} \def\Gmm{\Gamma} 

\def\har{\hbar} \def\hf1{\hfil} \def\hl1{\hfill} \def\icl{\supset}\def\imt{\imath} 

\def\iny{\infty} \def\itg{\intop\nolimits} \def\itm{\item} \def\itmm{\itemitem} 

\def\ity{\infty} \def\jmt{\jmath} \def\kpa{\kappa} \def\lar{\leftarrow} 

\def\lds{\ldots} \def\1f1{\lfloor} \def\llr{\longleftrightarrow} 

\def\Lir{\Longleftrightarrow} \def\lmd{\lambda} \def\Lmd{\Lambda} \def\lng{\langle} 

\def\lra{\leftrightarrow} \def\Lra{\Leftrightarrow} 

\def\lrw{\longrightarrow} \def\Lrw{\Longrightarrow} \def\mpt{\mapsto} 

\def\nba{\nabla} \def\nind{\noindent} \def\ninep{\ninepoint} \def\ols{\obeylines} 

\def\op1{\oplus} Nee earl \oran} \der Vang \enagat \def\Omg{\Omega} \def\oss{\obeyspaces} 

\def\pint{\parindent} \def\prc{\prec} \def\prd{\prod}\def\pt1{\partial}\def\prt {\propto} 

\def\qiv{\equiv} \def\rar{\rightarrow} \def rfl{\rfloor} \def \rng{\rangle} 

\def\scc{\succ} \def\sgm{\sigma} \def\Sgm{\Sigma} \def\som{\asymp} \def\sqt{\sqrt} 

\def\sst{\subset} \def vst {\kbox{ s.t. ia \def\sub{\subset} \def\tmat\times} 

\def\trg{\triangle} \def\tta{\theta} \def\Tta{\Theta} \def\twbf{\twelvebf} 

\def\twrm{\twelverm} \def\utr{\bigtriangleup} \def\vep{\varepsilon} \def\vph{\varphi} 

\def \vrt{\vert}\def\vrtm{$\vert$}\def\vskp{\vskip}\def\wdg{\wedge}\def\wtld{\widetilde} 

\def\xst{\exists} \def\zta{\zeta} 

\def\q{\quad} \def\qq{\qquad} \def\1f{\left} \def\rt{\right} 

\ded\ abe \mechool en abs}\nolimits} \def\abs{\mathop{\rm abs}\nolimits} 
\def\arc{\mathop{\rm arc}\nolimits} \def\cosec{\mathop{\rm cosec}\nolimits} 
\def\D{{\rm d}} \def\det{\mathop{\rm det}\nolimits} 

\def\Div{\mathop{\rm div}\nolimits} \def\Em{\mathop{\rm E}\nolimits} 

\def\erf{\mathop{\rm erf}\nolimits} \def\Grad{\mathop{\rm grad}\nolimits} 

\def\inf{\mathop{\rm inf}\nolimits} \def\Kur{\mathop{\cal K}\nolimits} 

\def\min{\mathop{\rm min}\nolimits} \def\Min{\mathop{\rm min}\nolimits} 

\def\max{\mathop{\rm max}\nolimits} \def\Max{\mathop{\rm max}\nolimits} 

\def\mod{\mathop{\rm mod}\nolimits} \def\Mom{\mathop{\cal M}\nolimits} 

\def\Med{\mathop{\rm med}\nolimits} \let\med=\Med 

\def\Mad{\mathop{\rm mad}\nolimits} \let\mad=\Mad 

\def\Neb{\mathop{\aleph}\nolimits} \def\Nor{\mathop{{\cal N}7*c_v}\nolimits} 

\def\Oc{\mathop{\rm 0}\nolimits} \def\Per{\mathop{\cal P}\nolimits} 

\def\R1{\mathop{\rm Re}\nolimits} \def\sgn{\mathop{\rm sgn}\nolimits} 

\def\sup{\mathop{\rm sup}\nolimits} \def\Voy{\mathop{\cal V}\nolimits} 

\def\centre##1{\line{\hss##1\hss}} \def\haln{\halign} \def\ovln{\overline} 

\def \lline##1{\line{##1\hss}} \def\mspn{\multispan} \def\pshp{\parshape} 

\def\rline##i{\line{\hss##1}} \def\sskp{\smallskip} 

\def \nxs{\raise1pt\hbox{$/$}\kern-5. ipt\xst} 

\def\proof{\noindent{\bf Proof.} } \def\endprf{\hfill$\sqr$} 

\def \gedprf {\par\hfill{q.e.d.}}} 

\def\money{\def\pound{{\it \$}}} 
\def \nihongo{\def \kanji (##1) [##2]{\setbox1=\hbox{##1} \dtmp=\wd1 

\setbox2=\vbox{\hsize=\dtmp\noindent \sevenrm--\hfil##2\hfil--} 

\ibos{} \eern- teat \aarirel (uathopt Rern\ee\cs yi} 

AT inde \eavanrn\korn, Som\fadse: Sen\consa}1$) 

\def\radcal (##1) [##2] {\setbox1=\hbox{##1} \dtmp=\wdi 
\setbox2=\vbox{\hsize=\dtmp\noindent \sevenbf--\hfil##2\hfil--} 
\hbox{}\kern-1em$\mathrel{\mathop{\kern\z@\copy1} 

\limits_{\sevenrm\kern.5em\raise .5em\copy2}}$} 

\def\Ou.{\=0} \def\ou.{\=o} \def\Uu.{\=U} \def\uu.{\=u} \def\Arak. {\kanji (Ara) [k]} 

\def\Hiroshis.{\kanji(Hiroshi) [s]} \def\kawa.{\radcal (kawa) [b]} 

\def \Kawa. {\radcal (Kawa) [b] }\def\Suzug. {\kanji(Suzu) [g]}} 

\def \norge{\def\aA{\accent23a} \def\axx.{\aA } \def\Axx.{\AA } 

\def\oz.{\’o0} \def\0z.{\’0} \chardef\o0="1C \def\ozz.{\o0 } \def\0zz.{\0 }} 
\def\pali{\def\aa.{\=a} \def\Aa.{\=A} \def\ii.{\=\i} \def\Ii. {\=I} 

\def\uu. {\=u} \def\Uu. {\=U} 

\def\dq.{\d d} \def\Dq.{\d D} \def\dqh.{\d dh} \def\Dgh.{\d Dh} 

\def\tq.{\d t} \def\Tq.{\d T} \def\tgh.{\d th} \def\Tqh.{\d Th} 

\def\nq. {\d n}\def\Nq.{\d N} \def\nl.{\"n}\def\N1.{\"N} \def\nx.{\.n}\def\Nx.{\.N}} 
\def \physics{\def\unt [##1]{$\rm_ ##1$} \def\mum{$\mu$m} \def\Rey{{\rm Re}}} 
\def\polish{\def\aj.{\c a} \def\Aj.{\c A} \def\cz.{\’c} \def\Cz.{\’C} 

\def\ej.{\c e} \def\Ej.{\c E} \def\1z.{\’1} \def\Lz.{\’L} 

\def\1zz.{\l1_} \def\Lzz.{\L } \def\nz.{\’n} \def\Nz.{\’N} 

\def\oz.{\’o} \def\0z.{\’0} \def\sz.{\’s} \def\Sz.{\’S} 

\def\zz.{\’z} \def\Zz.{\’Z} \def\zx.{\.z} \def\Zx.{\.z} 

\def\dzz.{d\’z} \def\Dzz.{D\’z} \def\dzx.{d\.z} \def\Dzx.{D\.z}} 
\def\russian{\def\iv.{\v\i} \def\Iv.{\v I} \def\eee.{\"e} \def\Ee.{\"E}} 
\def\sanskrit{\def\aa.{\=a} \def\Aa.{\=A} \def\ii.{\=\i} \def\Ii.{\=I} 

\def\uu.{\=u} \def\Uu.{\=U} \def\dq.{\d d} \def\Dq.{\d D} 
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\def\dqh.{\d dh} \def\Dqh.{\d Dh} \def\tq.{\d t} \def\Tq.{\d T} 
\def\tgh.{\d th} \def\Tqh.{\d Th} \def\nx.{\.n} \def\Nx.{\.N} 
\def\nl.{\"n} \def\N1.{\"N} \def\rq.{\d r} \def\Rq.{\d R} \def\rgh.{\d rh} 
\def\Rqh.{\d Rh} \def\lqq.{\d 1} \def\Lq.{\d L} \def\mq.{\d m} 
\def\Mq.{\d M} \def\hq.{\d h} \def\Hq.{\d H} 
\def\sz.{\’s} \def\Sz.{\’S} \def\sq.{\d s} \def\Sq.{\d S}} 
\def\serbo{\def\cv.{\v c} \def\Cv.{\v C} \def\cz.{\’c} \def\cz.{\’C} 
\def\dz.{\’d} \def\Dz.{\’D} \def\dzv.{d\v z} \def\Dzv.{D\v z} 
\def\sv.{\v s} \def\Sv.{\v S} \def\zv.{\v z} \def\Zv.{\v Z}} 
\def\slovak{\def\az.{\’a} \def\Az.{\’A} \def\iz.{\’\i} \def\Iz.{\’I} 

\def\yz.{\’y} \def\¥z.{\’¥} \def\oz.{\’o} \def\0z.{\’ 0} 

\def\uz.{\’u} \def\Uz.{\’U} \def\ae.{\"a} \def\Ae. {\"A} 

\def\oy.{\70} \def\Oy.{\70} \def\rz.{\’r} \def\Rz.{\’R} 

\def\1z.{\’1} \def\Lz.{\’L} \def\cv.{\v c} \def\Cv.{\v C} 

\def\sv.{\v s} \def\Sv.{\v S} \def\zv.{\v z} \def\Zv.{\v Z} 

\def\dzv.{d\v z} \def\Dzv.{D\v z} \def\dv.{\v d} \def\Dv.{\v D} 

\def\tv.{\v t} \def\Tv.{\v T} \def\nv.{\v n} \def\Nv.{\v N} 

\def\lv.{\v 1} \def\Lv.{\v L}} 

\def \tex{\long\def \veb##1{\def \next {##1}{\tt\frenchspacing\expandafter\strip\meaning\next}} 

\def\strip##1>{} \def\bx{{\it bx}} \def\kx{{\it kx}} \def\mx{{\it mx}} 

\def\plx{{\it plx}} \def\px{{\it px}} %TeX book, KiteX, manmac, plain TeX, primitive TeX} 

\def \vietnamese{\def\dt .{d\kern-.5em\raise.25em\hbox{--}} 
\def\Dt.{{D\kern-.75em\raise. 1em\hbox{--}\kern. 25em}} 

\def\ap.{\u a} \def\Ap.{\u A} \def\ay.{\7a} \def\Ay.{\7 a} 

\def\ey.{\"e} \def\Ey.{\"E} \def\oy.{\"o} \def\Oy.{\"0} 

\def\az.{\’a} \def\Az.{\’ A} 

\def \as. {a\kern-.5em\raise.4em\hbox{?}} 

\def\As .{{A\kern-.6em\raise .59em\hbox{?}\kern.1em}} 

\def\al.{\"a} \def\Al.{\~A} \def\aq.{\d a} \def\Aq.{\d_ A} 

\def\ez.{\’e} \def\Ez.{\’E} \def\eh.{\‘e} \def\Eh. {\‘E} 

\def\es.{e\kern-.5em\raise.39em\hbox{?}} \def\Es.{E\kern-.5em\raise.62em\hbox{?}} 

\def\el.{\~e} \def\E1.{\"E} \def\eq.{\d e} \def\Eq.{\d E}} 

\def \zhongwen{\def \af .{\=a} \def\az.{\’a} \def\av.{\v a} \def\ah.{\‘a} 
\def\eif.{\=ei} \def\eiz.{\’ei} \def\eiv.{\vei} \def\eih.{\‘ei} 
\def\if.{\=\i} \def\iz.{\’\i} \def\iv.{\w\i} \def\ih. {\‘\i} 
\def\of.{\=o} \def\oz.{\’o} \def\ov.{\v o} \def\oh. {\‘o} 
\def\ouf.{\=ou} \def\ouz.{\’?ou} \def\ouv.{\v ou} \def\ouh. {\‘ou} 
\def\uf.{\=u} \def\uz.{\’u} \def\uv.{\v u} \def\uh. {\‘u} 
\def\uof.{u\=o0} \def\uoz.{u\’o} \def\uov.{u\v o} \def\uoh. {u\‘o} 

\def\put ji (##1) [##2] {\begingroup\setbox1=\hbox{##1} \dtmp=\wd1 
\setbox2=\vbox{\hsize=\dtmp\noindent \sevenrm—-\hfil##2\hfil--} 
\hbox{}\kern-1em$\mathre1{\mathop{\kern\z@\copy1} 
\limits_{\sevenrm\kern.5em\raise.5em\copy2}}$\endgroup} 

\def \putbs (##1) {\begingroup\setbox1=\hbox{##1} \dtmp=\wd1 
\setbox2=\vbox{\hsize=\dtmp\noindent\sevenrm$\cdot$\hfil} \hbox{}\kern-1em 
$\mathrel{\mathop{\kern\z@\copyi}\limits_{\sevenrm\kern.5em\raise.7em\copy2}}$ 
\lineskip-.5em\endgroup} 

\def\aifc.{\putji(\=ai) [c]}\def\Aifc. {\putji(\=Ai) [c]}\def\aifcm.{{\it grief or sorrow}} 

\def\baofc.{\putji(b\=ao) [c]} \def\Baofc.{\putji(B\=ao) [c] 

\def\baofcm.{{\it praise or commend}} \def\biaovc.{\putji(bi\v ao) [c]} 

\def\Biaovc.{\putji(Bi\v ao) [c]} \def\biaovem.{{\it surface}} 

\def\caizc.{\putji(c\’ai) [c]} \def\Caizc. {\putji(C\’ ai) [c]} 

\def\caizcm.{{\it cut paper or cloth}} \def\chazng.{\putbs(ch\’ ang) } 

\def\Chazng.{\putbs(Ch\’ang)} \def\daihc. {\putji(d\‘ai) [c]}\def\Daihc. {\putji(D\‘ai) [c]} 

\def\daihem.{{\it a sack or bag}} \def\gofng.{\putbs(g\=ong) }\def\Gofng.{\putbs (G\=ong) } 

\def\guovc. {\put ji(gu\v @ feldvaettauore f\pat je (Gave o) [c]} 

\def\guovem.{{\it wrap or bind}} \def\livc.{\putji(1\v\i) [c]} 

\def\Live.{\putji(L\v\i) [c]} \def\livem.{{\it lining or inside}} 

\def\lozng.{\putbs(1\’ ong)} \def\Lozng. {\putbs (L\’ ong) } 

\def\mizngry.{\putji(m\’\i ng) [ry]} \def\Mizngry.{\putji(M\’\i ng) [ry]} 

\def\niaovc. {\put ji(ni\v ao) tel} \def \Niaove. {\put ji Ga \v aa) tele 

\def\niaovem.{{\it slender and delicate}} 

\def\qiuzc.{\putji(qi\’u) [c]} \def\Qiuzc.{\putji(Qi\’u) [c]} \def\qiuzem.{{\it fur coat}} 

\def\rih.{\putbs(r\‘\i)} \def\Rih. {\putbs(R\‘\i)} \def\rihm.{{\it the Sun}} 

\def\shuaifc. {\put ji(shu\=ai) [c]} \def\Shuaifc. {\put ji(Shu\=ai) [c]} 

\def\shuaifcm.{{\it decline}} \def\xiafngc.{\putji(xi\=ang) [c]} 

\def \Xiafngc. {\put ji(Xi\=ang) [c]} \def\xiafngem.{{\it assist}} 
\def\xiehc.{\putji(xi\‘e) [c]} \def\Xiehc. {\putji(Xi\‘e) [c]} \def\xiehcm.{{\it blaspheme}} 
\def\xizc. {\putji(x\’\i) [c]} \def\Xizc.{\putji(X\’\i) [c]} \def\xizcem.{{\it raid}} 

\def\yif.{\putbs(y\=\i)} \def\Yif.{\putbs(Y\=\i)} \def\yifm.{{\it clothes}} 

\def\yihc. {\putji(y\‘\i) [c]} \def\VYihc.{\putji(Y\‘\i) [c]} \def\yihem.{{\it descendants}} 
\def\yueh. {\putbs (yu\‘e)} \def\Yueh.{\putbs (Yu\‘e)} \def\yuehm.{{\it the moon}} 

\def\zhafngg. {\put ji(zh\=ang) [g]} \def\Zhafngg.{\put ji(Zh\=ang) [g]} 

\def\zhihc.{\putji(zh\‘\i) [c]} \def\Zhihc. {\put ji(Zzh\‘\i) [c]} 
\def\zhihcem.{{\it control, make, or system}} \def\zhofngc.{\putji(zh\=ong) [c]} 
\def \Zhofngc. {\put ji(Zh\=ong) [c]} \def\zhofngcm.{{\it inner feelings}} 

\def \zhuafngc. {\putji(zhu\=ang) [c]} \def\Zhuafngc. {\put ji (Zhu\=ang) [c]} 
\def\zhuafngem. {{\it clothing}}} 
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§ A.13 Program for the dissertation 


4 dst.tex December 2002 

\input thshead\headilin 

\def \kart#1[#2]#3:#4:#5:{\advance\kpc by 1 \global\count1=\kpc 

\ix [#2] ({{\sevenrm KNT\hxdc(\romannumeral\the\kpc) }})\par}\input thskbb 

\def \kart#1[#2]#3:#4:#5:{\advance\kpc by 1 \global\count1=\kpc 

\ix [#2] ({{\sevenrm KNT\hxdc(\romannumeral\the\kpc) }}) 

{\rm #1}7#37{\it #4} #5 \x[#2].\par} 

\begingroup\tchd\titlepage 

\centre{\titlefont Division of space by Voronoi graphs,}\bskp 

1o \centre{\titlefont application to the models of porous membranes,}\vskp.7in 

11 \centre{\epsfxsize=1lin \epsffile{umist.ps}}\vskp.9in 

12 \centre{\twrm A thesis submitted to the}\vskp.3in 

13 \centre{\twrm University of Manchester Institute of Science and Technlogy}\vskp.3in 
14 \centre{\twrm For the degree of Doctor of Philosophy}\vskp.9in 

15 \centre{\titlefont Kittisak Nui Tiyapan}\vskp.3in 

16 \centre{\twrm BEng, BSc, BEng, MSc}\vskp .3in 

17 \centre{\twrm Department of Chemical Engineering}\vskp.3in 

is \centre{\twrm \date}\cut 

19 \headiin\titlepage\parindent=0in\ (Declaration) \ct 

20 The work that is \x[phyd] in this thesis is based on has been submitted in 

21 support of an application for the degree of B.Eng. in Mineral Engineering at the 

22 Chulalongkorn University, Bangkok, Thailand, in the year 1991 AD.\ct 

23 \rline{Kit Tiyapan}\cut 

24 \headiin\titlepage 

25 \rline{To my father and my mother Niwat and Somjit Tiyapan,} 

26 \rline{and my chemistry and sword teacher Siddhiponr Songsataya.} 

27 \rline{To Emeritus Professor David J. Bell} 

28 \rline{and Emeritus Professor Graham Arthur Davies,} 

29 \rline{both of whom have started this project,} 

30 \rlinef{one of whom has powered it.} 

31 \rline{To these people, then, is my dedication of this thesis ,} 

32 \rline{but the thesis may dedicate itself to whomever it wishes. }\cut 

33 \head.3in \newwrite\toc 

34 \lox(Table of contents) [dsttoc] \immediate\openout\toc=dsttoc\newwrite 

35 \lof\lox(List of figures) [dstlof] \inmsdiate\ Gpanout\iofedetlof\ never ite lide 

36 \lox(List of tables} [dstlot] \immediate\openout\lot=dstlot\newwrite\lom 

37 \lox(List of theorems) [dstlom] \immediate\openout\lom=dstlom\newwrite\loq 

38 \lox(List of algorithms) [dstlog] \imsdinte lopenont \leqedetlog menerita\ted 

39 \lox(List of definitions) [dstlod] \immediate\openout\lod=dstlod\newwrite\los 

40 \lox(List of assumptions) [dstlos] \immediate\openout\los=dstlos 

41 \loy (Acknowledgements) [thsack] 

42 \dov (Netatdon) Tehenot Nain Vtenbi. \beapoiut /thenot, \endevou \cut \headOin 

43 \chp[cfnd] Introduction: thstro:\sct [smth]Mathematics:dstmth: \sct [sgem] Geometry: thsgem: 
44 \sct[sphy]Physics:thsphy:\sct[scsm]Cosmological structure:thscsm: 

45 \sct[sflt]Filtration:dstflt:\sct[sstt]Statistics:thsstt: 

46 \sct[spoi]Poisson process:dstpoi:\sct[sptr]Phase transition:thsptr: 

47 \sct[sran]Random processes:thsran:\sct[snat]Structures in nature:thsnat: 

48 \sct[scpg]Computational geometry:dstcpg:\sct[salg]Geometric algorithms:dstalg: 

49 \chp eats [avis ven of apace: detdie=\eerleetelatereoerechic projection: thsste: 

50 \sct[scov]Covering lattices:thscov: 

51 \sct[sfng]Viscous fingers:thsfng:\sct[scrs]Crystals, quasicrystals, and polycrystals:thscrs: 
52 \sct[srdl]Random lines:dstrdl:\sct[scxh]Convex hull:dstcxh: 

53 \sctEsprv]From convex hull to the Voronoi tessellation:dstprv: 

54 \sct[stlg]Tilings and patterns:thstlg: 

55 \chp[cvor]Voronoi tessellation:thsvn:\sct[sqeq]Quadratic equations: thsqeq: 

56 \sct[sqfm]Quadratic forms:thsqfm: 

57 \sctEsval]Voronoi algorithms:dstval:\sct[svst]Voronoi statistics in literature:dstvst: 
58 \sct[ssta]Voronoi statistics:thssta:\sct[svst]Voronoi section:thsvst: 

59 \sctEsnmv]Number of vertices and edges:thsnumv: 

60 \sct[svfc]Faces in different dimensions:thsvfc: 

61 \sct[spcb]Beam intersection study:thspcb:\sct[svov]Voronoi of Voronoi:dstvov: 

62 \sct[Estrv]Transformations of Voronoi:dsttrv:\sct[scxv]Compressed Voronoi:dstcxv: 
63 \sct[svhg]Voronoi tessellation in higher dimensions:dstvhg: 

64 \clie Leplt [percolation thepel-\ectbeace |S carves and the percolative phenomena:dstscv: 
65 \sct[sv2d]Voronoi percolation in two dimensions: thsv2d: 

66 \sct[sv3d]Voronoi percolation in three dimensions:thsv3d: 

67 \sct[sv2s]Percolation of 2-dimensional Voronoi sections: thsv2s: 

68 \sct[sntp]Network percolation:thsnpc: 

69 \sct[sscl]Percolation statistics in literature:fypscl: 

70 \sct[scnm]Percolation of $n$-gons in continuum: thscnm: 

71 \sct[spgt]Polygon percolation threshold:dstpgt:\sct[shmd]2-homohedral tilings:thshmd: 
72 \sct[Escgy] Cosmology: thscgy: \sct [sphl]Philosophy: thsphl:\sct [sdcv]Enlightenment:thsdcv: 
73 \sct[scrm]Forest fire fighting:thsfir:\sct[sfrc]Fractals and percolation:thsfrc: 
74 \chp[cmmb]Porous media:dstprm:\sct[smdc]Medical science: thsmdc: 

75 \sct[szeo]Zeolites:thszeo:\sct[scry]Crystalisation:dstcry: 

76 \sct[sflw]Fluid flow within networks:thsflw:\sct[smat]Material science:thsmat: 

77 \sct[sclm]Forces between particles:thsclm:\sct[sire]Arbitrarily shaped particles:dstarb: 
78 \sct[snnp]Non Poisson number distributions of particles:dstnnp: 

79 \chp[cfmb]Filtering membranes:dstfmb:\sct[ssls]Separation processes:dstsls: 
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\sct [sdef]Dead-end filtration:dstdef:\sct[scgt]The centre of gravity:dstcgt: 
\sct [smdm]Molecular dynamics:dstmdm: 

\sct [spad]Problem definition and algorithms:dstpad: 

\sct [sfti]Simplified algorithm for filtration:dstfti: 

\sct[ssam]Filtering problem when physical blockage is prominent:dstsam: 
\sct[spfg]Percolative filtering with very small particles:dstpfg: 

\sct [spwp]Percolation within percolation:dstpwp: 

\sct[stlg]The first part, suspended particles:dsttlg: 

\sct[sftc]The second part, flow through the cells:dstftc: 

\chp[cptm]Percolation in traffic modelling:thstrf:\sct[strf]Traffic networks:dsttnt: 
\sct[sprn]Percolation of road networks:dstprn: 

\sct[sgph]Theory of graphs and its applications:dstgph: 

\chp[cpem]Percolation theory as economic models:dstcem: 

\sct [sobj] 0bject-location:thsobj:sct[seco]Economic modelling:thseco: 

\chp [cadd] Addenda: :\sct [ssoc]Sociology:thssoc:\sct[scon]Control systems:thscon: 

\sct [stex]\TeX nicalities:thstex: 

\chp[ccon] Conclusion:dstcon: 

\appLaprg]Programs::\sap[sobp]Object location:\listing{pgmobj}: 

\sap[stwv]Network percolation, two dimensions: \listing{pgmtwv}: 

\sap[sthv]Network percolation, three dinsnadones\ligtiag (eenehy?: 

\sap[stws]Network percolation, 2--d section: \listing{pgmtws}: 

\sap[scnn]Continuum percolation of $n$-gons:\listing{pgmcnn}: 

\aaplaptl Ta lings : \ieting{pemptl}? \eapteper Covering lattices: \listing{pgmpcv}: 
\sap[sgxy]Covering contour: \listing{pgmgxy}:\sap[snov]Number of vertices: \listing{pgmnov}: 
\sap[svea]Vertices per cell and cell ratio:\listing{pgmvea}: 

\sap[stex]\TeX’s macros: \listing{pgmtex}: 

\sap[stxl]Language macros for \TeX:\listing{pgmlng}: 

\sap[sden]Degenerate test and other programs: \listing{pgmden}: 

\sap[ssgn]Face statistics in $n$ dimensions: \listing{pgmsgn}: 

\sap[ppcb]Beam intersection program: \listing{pgmpcb}: 

\sap[pvhd]Number of vertices in high dimensions: \listing{pgmvhd}: 

\sap[pbnv]Example batch program, simulation and data extraction: \listing{pgmbnv}: 
\sap[pvov]Voronoi operator of various order:\listing{pgmvov}: 

\sap[pvff]Voronoi data structure for filtering membrane study: \listing{pgmvff}: 
\sap[pctc]Centroid process on 2-d VT:\listing{pgmctc}: 

\sap[pcgi]Centroid process on 3-d VT:\listing{pgmcgi}: 

\sap[parb]Defining irregular objects: \listing{pgmarb}: 

\sap[prnx] Investigating the distribution observed from within the network: \listing{pgmrnx}: 
\sap[pftn]Miscellaneous functions: \listing{pgmftn}: 

\sap[ptrp]Percolated traffic networks:\listing{pgmtrf}: 

\sap[pvsp]Volume, surface area, cell- and face perimeters: \listing{pgmvsp}\listing{pgmvsq}: 
\sap[pvhg]Volume in higher dimensions: \listing{pgmvhg}: 

\sap[ptrr]Regular lattices in three dimensions: \listing{pgmtrr}: 
\sap[pchl]Effects of channelling: \listing{pgmchl}: 

\sap[pstp]Stereographic projection: \listing{pgmstp}: 

\appLatrm] Terminology: : \begingroup\parindent=0pt 
\ninepoint \baselineskip.9em \inpt[thstrm] \endgroup 
\sap [sabv] Abbreviation: \din.\tenbf.\tenpoint.dstabv.: 

\app[arsc] Resources: :\sap[sbio]Biographies:thsbio: 

\sap[acmp]Computation and softwares:thssft: 
\sap[sweb] Internet resources:{\nin thsnet:}: 

\app[abib]Bibliography:{\bib thsbib:}: 

\sap[akbb]My writings, Kittisak Nui Tiyapan:{\bib thskbb:}: 

\appLapub]Essays and relevant publications:: 

\sap[phyd]Antimonytrioxide extraction from ore by hydrometallurgy: \pap{phyd}: 
\sap [pcyb] Cyberspace: \pap{pcyb}:\sap[pend]The End of Sear: dae trendl: 
\sap[pext]Self-tuning Extremum Control:\pap{pext}: 

\sap[pand]The story of Andromedra:\pap{pand}:\sap[plet]The names of the notes:\pap{plet}: 
\sap[pkmp]To be unkempt: \pap{pkmp}: 

\sap[pcert]Critical probability of 2-d tessellation:\pap{pcrt}: 

\sap[psom]Some properties of stochastic optimal control:\pap{psom}: 

\sap[pfrc]Fractals in traffic control:\pap{pfrc}: 

\sap[pdis]Distributed parameter systems: \pap{pdis}: 

\sap[pvis]Vision robots: \pap{pvis}:\sap[psng]Singular perturbation: \pap{psng}: 

\sap [poex]Object-location using Extremum Control: \pap{poex}: 

\sap[prag]On pragmatists and idealists: \pap{prag}:\sap[pmor]The Morris Worm: \pap{pmor}: 
\sap[psim]RLS algorithm for object-location problem: \pap{psim}: 

\sap[pmoc]Modelling the economics: \pap{pmod}: 

\sap[pflw]Money flow in networks: \pap{pflw}: 

\sap[ptrf]Modelling of traffic congestion: \pap{ptrf}: 

\sap[pctm]Critical probability in traffic modelling and control:\pap{pctm}: 
\sap[pvar]Variable structure control and singular perturbation:\pap{pvar}: 

\sap[ptrn]Projects on translation: \pap{ptrn}: 

Vaca lpabelabetvects of books I wrote:\pap{pabs}:\cut 

\app[atrn]Translation::\sap[adir]G. L. Dirichlet, 1848:\tran{trndirich}: 
\sap[avni]G. F. Voronoi, 1908 {(I)}:\tran{trnvoroni}: 

\sap[avnj]G. F. Voronoi, 1908 {(II)}:\tran{trnvoronii}: 
\sap[avnk]G. F. Voronoi, 1909:\tran{trnvoroniii}:\cut 
\app [aidx] Index: dstidx: \bye 
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§ A.14 Program for the thesis 


4 tss.tex September 2003 

\input thshead 

\head1in\begingroup\tchd\titlepage 

\centre{\titlefont Division of space by Voronoi graphs,}\bskp 

\centre{\titlefont Percolation within percolation and}\bskp 

\centre{\titlefont application to the models of porous membranes}\vskp.7in 
\centre{\epsfxsize=1in \epsffile{umist.ps}}\vskp.9in 

\centre{\twrm A thesis submitted to the}\vskp.3in 

\centre{\twrm University of Manchester Institute of Science and Technology}\vskp.3in 

1o \centre{\twrm for the degree of Doctor of Philosophy}\vskp.9in 

11 \centre{\titlefont Kittisak Nui Tiyapan}\vskp.3in 

12 \centre{\twrm BEng, BSc, BEng, MSc} \vskp .6in 

13 \centre{\twrm \date}\cut\head1in 

14 {\elevenrm\baselineskip=17pt\noindent 

15 No portion of the work referred to in this thesis has been submitted in support of 

16 an application for another degree or qualification of this or any other university, or other 
17 institute of learning.\vskip.7in \rline{K N Tiyapan}}\cut\headlin 

1s \titlepage{\baselineskip=15pt 

19 \rline{To my father and my mother Niwat and Somjit Tiyapan (\[Nivat, Somcit\tx. T\iq.y\ax.ban\dhx.a)],} 
20 \rline{my chemistry and sword teacher Siddhiponr Songsataya (\[Sidhibaur Drongsa\tx.\yx.al), 
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21 \rline{my dad and mum Allister and Patricia Johnstone.} 

22 \rline{To Emeritus Professor David John Bell and} 

23 \rline{Emeritus Professor Graham Arthur Davies,} 

24 \rline{both of whom had started this project,}\rline{one of whom had powered it.} 
25 \rline{To these people, then, is my dedication of this thesis,} 

26 \rline{but the thesis may dedicate itself to whomever it wishes.}}\cut\head1.2in 
27 \lox (Abstract) [tssabs]\cut\head.3in\newwrite\toc 

28 \lox(Table of contents) [dsttoc] \immediate\openout\toc=dsttoc\newwrite\lof 

29 \lox(List of figures) [dstlof] \immediate\openout \lof=dstlof\newwrite\lot 

30 \lox(List of tables) [dstlot] \immediate\openout\lot=dstlot\newwrite\lom 

31 \lox(List of theorems) [dstlom] \damadiaca \apenout\lonedatlon\acwerite\1oH 

32 \lox(List of algorithms) [dstlog] \immediate\openout\loq=dstlog\newwrite\lod 

33 \lox(List of definitions) [dstlod] \immediate\openout\lod=dstlod\newwrite\los 

34 \lox(List of assumptions) [dstlos] \immediate\openout\los=dstlos\cut 

35 \loy (Acknowledgements) [thsack] \cut 

36 Nios (Notation) (ehanot] \dinn, Velev cnpodines \eenpolunb theliot. Vendefoup (Gab i Sadoda 

37 \chp[cfnd]Preface and introductions:thstroii:\sct[smth]Mathematics:dstmth: 

38 \sct[sgem] Geometry: thsgem:\sct [sphy]Physics:thsphy: 

39 \sct[scsm]Cosmological structure: thscsm: 

40 \sct[sflt]Filtration:dstflt:\sct[sstt]Statistics:thsstt:\sct[spoi]Poisson process:dstpoi: 
41 \sct[sptr]Phase transition: thsptr:\sct[sran]Random processes:thsran: 

42 \sct[snat]Structures in nature:thsnat:\sct[scpg]Computational geometry:dstcpg: 
43 \sct[salg]Geometric algorithms:dstalg:\sct[stex]\TeX nicalities:thstex: 

44 Miche leaiv Division of space:dstdiv:\sct[sste]Stereographic projection: thsste: 

45 \sct[scov]Covering lattices:thscov:\sct[sfng]Viscous fingers:thsfng: 

46 \sct[scrs]Crystals, quasicrystals, and polycrystals:thscrs: 

47 \sct[srdl]Random lines and percolation:dstrdl:\sct[scxh]Convex hull:dstcxh: 

4g \sct[Esprv]From convex hull to the Voronoi tessellation:dstprv: 

49 \sct[stlg]lTilings and patterns:thstlg: 

50 Nche lever (oxouct tessellation:thsvn:\sct[sqeq]Quadratic equations: thsqeq: 

51 \sctEsqfm]Quadratic forms:thsqfm:\sct[sval]Voronoi algorithms:dstval: 

52 \sct[Esvst]Voronoi statistics in literature:dstvst: 

53 \sct[ssta]Voronoi statistics:thssta:\sct[svst]Voronoi section:thsvst: 

54 \sctEsnmv]Number of vertices and edges:thsnumv: 

55 \sct[svfc]Faces in different dimensions:thsvfc: 

56 \sct[spcb]Beam intersection study:thspcb:\sct[svov]Voronoi of a Voronoi:dstvov: 
57 \sct[Estrv]Transformations of a Voronoi:dsttrv:\sct[scxv]Compressed Voronoi: dstcxv: 
58 \sct[Esvhg]Voronoi tessellation in higher dimensions:dstvhg: 

59 chp lepit [Rereodabica: dispel \setlederle-curraa and the percolative phenomena:dstscv: 
60 \sct[sv2d]Voronoi percolation in two dimensions: thsv2d: 

61 \sct[Esv3d]Voronoi percolation in three dimensions:thsv3d: 

62 \sct[sv2s]Percolation of 2-dimensional Voronoi sections: thsv2s: 

63 \sct[Esntp]Network percolation:thsnpc: 

64 \sct[sscl]Percolation statistics in literature:fypscl: 

65 \sct[scnm]Percolation of $n$-gons in continuum: thscnm: 

66 \sct[spgt]Polygon percolation threshold:dstpgt: 

67 \sct[shmd]2-homohedral tilings: thshmd:\sct[scgy] Cosmology: thscgy: 

68 \sct[scrm]CCTV, forest fire, the navy and porcupines:thsfir: 

69 \sct[sfrc]Fractals:thsfre: 

70 \chp[cmmb]Porous media:dstprm: \sct[szeo] Zeolites: thszeo: 

71 \sct[scry]Crystalisation:dstcry: 

72 \sct[sflw]Fluid flow within networks:thsflw:\sct[smat]Material science:thsmat: 
73 \sct[sclm]Forces between particles:thsclm:\sct[sire]Arbitrarily shaped particles:dstarb: 
74 \sct[Esnnp]Non Poisson number distributions of particles:dstnnp: 

75 \chp(cfmb]Filtering membranes:dstfmb:\sct[ssls]Separation processes:dstsls: 

76 \sct[sdef]Dead-end filtration:dstdef:\sct[scgt]The centre of gravity:dstcgt: 

77 \sct[Esmdm]Molecular dynamics:dstmdm:\sct[spad]Problem definition and algorithms:dstpad: 
78 \sct[Esfti]Simplified algorithm for filtration:dstfti: 
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\sct[ssam]Filtering problem when physical blockage is prominent:dstsam: 
\sct [spfg]Percolative filtering with very small particles:dstpfg: 

\sct [spwp]Percolation within percolation:dstpwp: 

\sct[stlg]The first part, suspended particles:dsttlg: 

\sct[sftc]The second part, flow through the cells:dstftc: 
\chp[cptm]Percolation in traffic modelling:thstrf: 

\sct [sprn]Percolation of road networks:dstprn: 

\sct[sgph]Graphs theory and its applications:dstgph: 

\chp[ccon] Conclusion:dstcon: \sct[sftw]Suggestions for future work:tssftw: 
\app[aprg]Programs::\sap[sobp]Object location: \listing{pgmobj}: 
\sap[stwv]Network percolation, two dimensions: \listing{pgmtwv}: 
\sap[sthv]Network percolation, three dinengions-\Tieeine (penthey: 
\sap[stws]Network percolation, 2--d section: \listing{pgmtws}: 
\sap[scnn]Continuum percolation of $n$-gons:\listing{pgmcnn}: 
\sap[sptl]Tilings:\listing{pgmpt1}:\sap[spcv]Covering lattices:\listing{pgmpcv}: 
\sap[sgxy]Covering contour: \listing{pgmgxy}: 

\sap[snov]Number of vertices:\listing{pgmnov}: 

\sap[svea]Vertices per cell and cell ratio:\listing{pgmvea}: 
\sap[stex]\TeX’s macros: \listing{pgmtex}: 

\sap[stxl]Language macros for \TeX:\listing{pgmlng}: 

\sap[sdst]Program for the dissertation: \listing{tssdst}: 
\sap[stss]Program for the thesis:\listing{tsstss}: 

\sap[sden]Degeneracy test and other programs: \listing{pgmden}: 
\sap[ssgn]Face statistics in $n$ dimensions: \listing{pgmsgn}: 
\sap[ppcb]Beam intersection program: \listing{pgmpcb}: 

\sap[pvhd]Number of vertices in high dimensions: \listing{pgmvhd}: 
\sap[pbnv]Example batch program, simulation and data extraction: \listing{pgmbnv}: 
\sap[pvov]Voronoi operator of various order:\listing{pgmvov}: 
\sap[pvff]Voronoi data structure for filtering membrane study: \listing{pgmvff}: 
\sap[pctc]Centroid process on 2-d Wie \dieeingtoenchel: 
\sap[pcgi]Centroid process on 3-d VT:\listing{pgmcgi}: 
\sap[parb]Defining irregular objects:\listing{pgmarb}: 
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\sap[prnx] Investigating the distribution observed from within the network: \listing{pgmrnx}: 


\sap[pftn]Miscellaneous functions: \listing{pgmftn}: 
\sap[ptrp]Percolated traffic networks:\listing{pgmtrf}: 


\sap[pvsp]Volume, surface area, cell- and face perimeters: \listing{pgmvsp}\listing{pgmvsq}: 


\sap[pvhg]Volume in higher dimensions: \listing{pgmvhg}: 

\sap[ptrr]Regular lattices in three dimangions-\(iseiaptopuice): 
\sap[pchl]Effects of channelling: \listing{pgmchl}: 

\sap[pstp] Stereographic projection: \ (iat ine (peuacpy: 

\sap[ppgt]Percolation of regular polygons in two dimensions: \listing{pgmpgt}: 
\applatrm] Terminology and other resources: : \begingroup\parindent=Opt 
\ninepoint\baselineskip.9em\inpt[thstrm] \endgroup 

\sap [sabv] Abbreviation: \din.\tenbf.\tenpoint.dstabv.:\sap[sbio]Biographies:thsbio: 
\sap[acmp]Computation and softwares:thssft: 

\sap[sweb]Internet resources:{\nin thsnet:}:\sct[stex]\TeX nicalities:thstex: 
\app[abib]Bibliography:{\bib thsbib:}: 

\sapLlakbb]My writings, Kittisak Nui Tiyapan:{\bib thskbb:}: 
\appL[apub]Publications and submissions of papers:: 

\sap[pcrt]Critical probability of 2-d tessellation:\pap{pcrt}: 
\sap[pabs]Abstracts of books I wrote:\pap{pabs}: 

\sap[polc]On object-location problems: \pap{polc}: 

\sap [pant] Antimonytrioxide extraction from ore by hydrometallurgy:\pap{pant}: 
\sap[pcop]Continuum percolation of polygons: \pap{pcop}: 

\sap[pppc]An algorithm for the percolation of polygons in continuum: \pap{pppc}: 
\sap[ppcq]Quantum mechanics within percolation within percolation: \pap{ppcq}:\cut 
\app Sire [iradelations“Neaptadirié. L. Dirichlet, 1948 \ceanterdidivi ch) 
\sap[avni]G. F. Voronoi, 1908 {(I)}:\tran{trnvoroni}: 

\sap[avnj]G. F. Voronoi, 1908 {(II)}:\tran{trnvoronii}: 

\saplavnk]G. F. Voronoi, 1909:\tran{trnvoroniii}: \cut 

\app[aidx] Index: dstidx: \bye 
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4% degen.m 
Dim=40; Xbunch=(0:2:Dim)’; Ycore=ones(size(Xbunch)); X=[]1; Y=0; 
for j=0:2:Din, 
X=[X;Xbunch]; Y=[Y;(j*Ycore)]; 
end 


[Xsq,Ysq]=voronoi(X,Y); Tri=delaunay(X,Y); NumTri=size(Tri,1); [XHex,YHex]=voronoi (X,Y) ; 


% honey.m 
Sq3=sqrt (3); Dim=40; Shift=1; y=1:Sq3:10; X=; Y=01; 
Xinit=0; Xbunch=(Shift:6:Dim)’; Ycore=ones (size (Xbunch) ) ; 
for j=0:(2*Sq3) :Dim, 
X=[X;Xbunch]; Y=[Y;j*Ycore]; 
end 
Xinit=3; Xbunch=(3:6:Dim)’; Ycore=ones(size(Xbunch)) ; 
for j=Sq3: (2+*Sq3) :Dim, 
X=[X;Xbunch]; Y=[Y;j*Ycore]; 
end 
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17 Tri=delaunay(X,Y); NumTri=size(Tri,1); [XHex,YHex]=voronoi (X,Y) ; 
18 % cover.m 

19 Sq3=sqrt (3); Dim=40; y=1:Sq3:10; X=[]; Y=]; Xinit=0; 

20 Xbunch=(0:6:Dim)’; Ycore=ones (size (Xbunch) ) ; 

21 for j=0:(2*Sq3):Dim, 

22 X=[X;Xbunch]; Y=[Y;j*Ycore]; 

23 end 

24 Xinit=3; Xbunch=(3:6:Dim)’; Ycore=ones(size(Xbunch) ) ; 

25 for j=Sq3: (2*Sq3) :Dim, 

26 «©X=[X;Xbunch]; Y=[Y;j*Ycore] ; 

27 end 

28 [XHex,YHex]=voronoi(X,Y); NumE=size(XHex,2); NeighE=sparse (NumE ,NumE) ; 
29 for i=1:(NumE-1), 

30 for j=(it1) :NunE, 


31 if (((XHex(1,i)==XHex(1,j)) & (YHex(1,i)==YHex(1,j))) | 
32 ((XHex(1,i)==XHex(2,j)) & (YHex(1,i)==YHex(2,j))) | 
33 ((XHex(2,i)==XHex(1,j)) & (YHex(2,i)==YHex(1,j))) | 
34 ((XHex(2,i)==XHex(2,j)) & (YHex(2,i)==YHex(2,j)))) 

35 NeighE(i,j)=1; NeighE(j,i)=1; 

36 end 

37 end 

38 end 


39 % covers.m 

40 Xmid=[]; Ymid=[]; 

41 for i=1:NumE, 

42 Xmid=[Xmid; ((XHex(1,i)+XHex(2,i))/2)]; Ymid=[Ymid; ((YHex(1,i)+YHex(2,i))/2)]; 
43 end 

44 [1,J]=find(tril(NeighE)); NumV=size(I,1); Xcov=[]; Ycov=[1; 

45 for i=1:NumV, 

46 Xcov=[Xcov; [Xmid(I(i,1) ,1) ,Xmid(J(i,1),1)]]; Ycov=[Ycov; [Ymid(I(i,1),1),Ymid(J(i,1) ,1)]]; 
47 end 

48 Xcovt=Xcov’; Ycovt=Ycov’; NumE1=size(Xcov,1); NeighE1=sparse (NumE1 ,NumE1) ; 

49 for i=1:(NumEi-1), 

50 for j=(it1):NumE1, 


51 if (((Xcovt(1,i) ’==Xcovt(1,j)’) & (Ycovt(1,i)’==Ycovt(1,j)’)) | 
52 ((Xcovt(1,i)’?==Xcovt(2,j)’?) & (Ycovt(1,i)’==Ycovt(2,j)’)) | . 
53 ((Xcovt(2,i)’==Xcovt(1,j)’) & (Ycovt(2,i)’==Ycovt(1,j)’)) | 
54 ((Xcovt(2,i)’==Xcovt(2,j)’) & nee i) ’==Ycovt (2,j)’))) 

55 NeighE1 (i, jJ=1; NeighEi(j,i)=1 

56 end 

57 end 

58 end 


59 Xmid=[]; Ymid=[]; 

60 for i=1:NumEi, 

61  Xmid=[Xmid; ((Xcovt (1,1) ’+Xcovt(2,i)’)/2)]; Ymid=[Ymid; ((Ycovt(1,i)’+Ycovt(2,i)’)/2)]; 
62 end 

63 [I,J]=find(tril(NeighE1)); NumV=size(I,1); Xc1=[1; Yc1i=(1; 

64 for i=1:NunV, 

65 Xc1=[Xe1; [Xmid(I(i,1),1) ,Xmid(J(i,1),1)]]; Yel=[Yc1; [Ymid(I(i,1),1) ,Ymid(J(i,1) ,1)]]; 
66 end 

67 % coverss.mXcit=Xc1’?; Ycit=Yc1’; 

68 NumE2=size(Xc1,1); NeighE2=sparse (NumE2,NumE2) ; 

69 for i=1: (NumE2-1), 

70 for j=(it1) :NumE2, 


71 if (((Xcit(1,i)’==Xcit(1,j)’) & (Yeit(1,i)’==Yeit(1,j)’)) | 
72 ((Xe1t (1,4) ?==Xce1t(2,j)’?) & (Yeit(1,i) ’==¥cit(2,j)’)) |. 
73 ((Xelt (2,1) ’==Keit(1,j)?) & (¥cit(2,i)’==Yceit(1,j)’)) | 
74 ((Xe1t (2,1) ?==Xce1t(2,j)’?) & (Yoit(2,i) ’==Ycit(2,j)’))) 

75 NeighE2(i,j)=1; NeighE2(j,i)=1; 

76 end 

77 end 

78 end 


79 Xmid=[]; Ymid=[]; 

80 for i=1:NumE2, 

81 Xmid=([Xmid; ((Xc1t (1,1) ?+Xcit(2,i)’)/2)]; Ymid=[Ymid; ((Ycit(1,i)’+Y¥c1t(2,i)’)/2)]; 
82 end 

83 [1,J]=find(tril(NeighE2)); NumV=size(I,1); Xc2=[]; Yc2=[]; 

84 for i=1:NunV, 

85 Xc2=[Xc2; [Xmid(I(i,1),1) ,Xmid(J(i,1),1)]]; Yc2=[Yc2; [Ymid(I(i,1) ,1) ,Ymid(J(i,1) ,1)]]; 
86 end 

87 % crop.m by K N J Tiyapan, 15 July 2001 

88 clear all; format long g; format compact; NumCel1=1000; rand(’state’ ,sum(100*clock)) ; 
89 [XVoro,YVoro]=voronoi(X,Y); SizeV=size(XVoro,2); Xv=0); Yv=0; 

90 for j=1:SizeV, 

91 =. if (CC (XVoro(1,j)>0) & (XVoro(1,j)<1)) & ((¥Voro(1,j)>0) & (YVoro(1,j)<1))) | 

92 (C(XVoro(2,j)>0) & (XVoro(2,j)<1)) & ((YVoro(2,j)>0) & (YVoro(2,j3)<1)))) 

93 Xv=([Xv,XVoro(: ,j)]; Yv=(Y¥v,YVoro(: ,j)]; 

94 end 

95 end 
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§ A.16 Face statistics in n dimensions 
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4 statsgenn.m by K N J Tiyapan, ist July, 2001 
echo off; clear all; format short g; more off; 
pti =fopen(’./v50.dat’,’r’); sci =fscanf(pti, ’%d’, 4); 
Dimension=sci(1,1); NumVAl1 =sci(2,1); NumC =sci(3,1); 
sc2 =fscanf(pti, ’4f’, [Dimension, NumVAll]); VerticeAll =sc2’; 
CVMat =sparse(NumC, NumVAl11); CFrame =ones(NumC, 1); VCFrame=zeros(NumVA11, 1); 
VFrame=ones (NumVAl1, 1); 
for i=1:Nunc, 
sci =fscanf(pti, ’%d’, 1); 
for j=i:sci, 
sc2 =fscanf(pti, ’4d’, 1); Num =sc2+1; CVMat(i,Num) =1; 
if ( max(abs(VerticeAll(Num, :))) > 0.5 ) 
CFrame(i,1) =0; VFrame(Num,1)=0; 
end 
end 
end 
fclose(pt1) ; 
for i=1:NunC, 


VInC=find(CVMat(i,:)’); NumVInC=size(VInC, 1) ; 
if (CFrame (i,1)==1) 
for j=1:NumVInc, 
VCFrame (VInC(j,1),1)=1; 
end 
end 
end 
CVNiceCMat=[]; 
for i=1:NunC, 
if (CFrame (i,1)==1) 
CVNiceCMat=[CVNiceCMat ;CVMat (i,:)]; 
end 
end 
CNumVNiceCMat=sum(CVNiceCMat ,2); NumV=sum(VCFrame) ; 
VVCFrameMat=zeros(NumV,2); Vertice=zeros(NumV,Dimension); Count=0; 
for i=1:NumVAll, 
if (VCFrame (i, 1)==1) 
Count=Countt1; 
VVCFrameMat (Count ,1)=i; VVCFrameMat (Count ,2)=Count; 
Vertice(Count,:)=VerticeAll(i,:); 
end 
end 
pt3=fopen(’./n50.dat’,’w’); pt2=fopen(’./c50.dat’,’r’); line=fget1l(pt2) ; 
sci =fscanf(pt2, ’4d’, 1); sc2=fscanf(pt2,’%f’, [Dimension,NumC]); Cell=sc2’; 
fclose(pt2); CNeighCCMat=sparse(NumC, NumC); t=cputime; FVA11Mat=[]; FNumVAl1Mat=(]; 
for i=1:(NumC-1), 
for j=(it1) :NunC, 
VShared=and(CVMat(i,:), CVMat(j,:)); NumShared =sum(VShared, 2); 
NumFVA11Mat=size (FVA11Mat , 1) ; 
if (NumShared >= Dimension) 
CNeighCCMat (i, j) =1; CNeighCCMat (j,i) =1; Exist=0; 
for k=1:NumFVA11Mat, 
Mat chExistingFV=sum(and(VShared,FVA11Mat (k,:)) ,2); 
if (MatchExistingFV>=Dimension) 
Exist=1; break; 
end 
end 
if (Exist==0) 
FVA11Mat=([FVA11Mat ;VShared] ; FNumVAl11Mat=([FNumVAl11Mat ;NumShared] ; 
end 
end 
end 
end 
FVMat=[]; FNumVMat=[]; FVCFMat=[]; FNumVCFMat=[]; 
for i=1:NumFVA11Mat , 
VThisFace=find(FVA11Mat (i,:)’); NumVThisFace=size(VThisFace,1); 
IncludeMe=1; IncludeMeToo=1; 
for j=1:NumVThisFace, 
if (VFrame (VThisFace(j,1),1)==0) 
IncludeMe=0; 
end 
if (VCFrame (VThisFace(j,1) ,1)==0) 
IncludeMeToo=0; 
end 
end 
if (IncludeMe==1) 
FVMat=([FVMat ;FVA11Mat (i,:)]; FNumVMat=[FNumVMat ;FNumVA11Mat (i,:)]; 
end 
if (IncludeMeToo==1) 
FVCFMat=([FVCFMat ;FVA11Mat (i,:)]; FNumVCFMat=([FNumVCFMat ; FNumVA11Mat (i, :)]; 
end 
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end 
NumFVMat=size(FVMat,1); NumFVCFMat=size(FVCFMat ,1); FDim=Dimension-1; 
fprintf(pt3,’Face dimension: %d\n’,FDim); fprintf(pt3,’Number of faces: %d\n’ ,NumFVMat) ; 
fprintf(pt3,’Number of vertices: \n [’); 
for i=1:NumFVMat, 
fprintf(pt3,’4d ’,FNumVMat(i,1)); 
if (mod (i, 10) ==0) 
fprintf (pt3,’...\n’); 
end 
end 
fprintf(pt3,’]\n’); fprintf(pt3,’Number of faces of nice cells: %d\n’ ,NumFVCFMat) ; 
fprintf(pt3,’Number of vertices: \n [’); 
for i=1:NumFVCFMat, 
fprintf(pt3,’%d ’,FNumVCFMat(i,1)); 
if (mod (i, 10) ==0) 
fprintf (pt3,’...\n’); 
end 
end 
fprintf(pt3,’]\n’); DVMat=FVCFMat; NumD=NumFVCFMat ; 
for d=3:Dimension, 
FaceCond=Dimension-dt+2; DNeighDDMat=sparse (NumD, NumD) ; dVMat=(]; dNumVMat=[]; 
for i=1:(NumD-1), 
for j=(it1) :NumD, 
VShared=and(DVMat(i,:), DVMat(j,:)); NumShared =sum(VShared, 2); 
NumdVMat=size(dVMat,1); 
if (NumShared >= FaceCond) 
DNeighDDMat (i, j) =1; DNeighDDMat (j,i) =1; Exist=0; 
for k=1:NumdVMat, 
Mat chExistingdV=sum (and (VShared ,dVMat (k,:)) ,2); 
if (Mat chExist ingdV>=FaceCond) 
Exist=1; break; 
end 
end 
if (Exist==0) 
dVMat=[dVMat ;VShared]; dNumVMat=[dNumVMat ; NumShared] ; 
end 
end 
end 
end 
FDim=Dimension-d+1; fprintf(pt3,’Face dimension: %d\n’,FDim) ; 
fprintf(pt3,’Number of faces: %d\n’ ,NumdVMat) ; 
if (FDim*=1) 
fprintf(pt3,’Number of vertices: \n [’); 
for i=1:NumdVMat, 
fprintf (pt3,’%d ’,dNumVMat(i,1)); 
if (mod (i, 10) ==0) 
fprintf (pt3,’...\n’); 


end 

end 

fprintf(pt3,’]\n’); 
end 
DVMat=dVMat; NumD=NumdVMat ; 
if (FDim==2) 

FVMat=DVMat ; 
end 

end 


Time=cputime-t; NumNiceC=sum(CFrame); NumVBound=sum(VFrame) ; 


§ A.17 Beam intersection program 


ANDoahwNre 


oO 


4 penc.m by K N J Tiyapan, 15th July, 2001 
clear all; format long g; format compact; NumCel1=1000; rand(’state’ ,sum(100*clock)) ; 
X=1.5*rand (NumCell,1)-0.25*ones (NumCell,1); Y=1.5*rand(NumCell,1)-0.25*ones (NumCell,1); 
4 X=poissrnd(.5,NumCell,1); Y=poissrnd(.5,NumCell,1); 
4% X=raylrnd(([1:NumCel1])’; Y=raylrnd([1:NumCe1l1])’; 
4 Max=0.84#max([X;Y]); X=X/Max; Y=Y/Max; 
[XVoro, YVoro]=voronoi(X,Y); SizeV=size(XVoro,2); Xv=—]; Yv=0; 
for j=1:SizeV, 
if ((((XVoro(1,j)>0) & (XVoro(1,j)<1)) & ((¥Vore(1,j)>0) & (YVoro(1,j)<1))) | 
(C(XVoro(2,j)>0) & (XVoro(2,j)<1)) & ((YVoro(2,j)>0) & (YVoro(2,j3)<1)))) 
Xv=[Xv,XVoro(:,j)]; Yv=[Yv,YVoro(: ,j)]; 
end 
end 
clf; plot(Xv,Yv); Vi=[Xv(1,:);¥v(1,:)]’; V2=(Xv(2,:);¥v(2,:)]’; NumE=size(V1,1); 
axis equal; axis([0 1 0 1]); Slope=2; Const=-.5; Cx=-.1; Dx=1.1; 
Cy=Slope*Cx+Const; Dy=Slope*Dx+Const; C=[Cx,Cy]; D=[Dx,Dy]; CD=D-C; DistVect=[]; 
hold on; plot ([C(1,1) ;D(1,1)], [C(1,2) ;D(1,2)]); 
for i=1:NumE, 
A=V1i(i,:); B=V2(i,:); AB=B-A; CA=A-C; Denom=det([AB;CD]) ; 
RNom=det ([CD;CA]) ; SNom=det ([AB;CA]) ; 
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21 if (Denom”=0) 


22 r=RNom/Denom; s=SNom/Denom; 

23 if ((r<=1) & (r>=0) & (s>=0) & (s<=1)) 

24 P=At+r*AB; hold on; plot(P(1,1),P(1,2),’.’,’lineWidth’ ,2); 
25 CP=P-C; Distance=sqrt (CP(1,1)*CP(1,1)+CP(1,2)*CP(1,2)); 
26 DistVect=[DistVect ;Distance] ; 

27 end 

28 end 

29 end 


30 SortDist=sort(DistVect); Dist=[]; NumSortDist=size(SortDist,1); 
31 for i=2:NumSortDist, 

32 Dist=[Dist; (SortDist(1,1)-SortDist(i,1))]; 

33 end 

34 Dist=abs(Dist); NumDist=size(Dist,1); PairDist=[]; 

35 for i=2:NumDist, 

36 PairDist=[PairDist; (Dist (i,1)-Dist((i-1) ,1))]; 

37 end 

38 Xc=[]; Yc=01; 

39 for i=1:NumCell, 

40 if ((X(i,1)>0) & (X(i,1)<1) & (YGi,1)>0) & (YGi,1)<1)) 


41 Xc=[Xe;X(i,1)]; Ye=[¥c;Y(i,1)]; 
42 end 
43 end 


44 NumC=size(Xc,1); NormBase=1/sqrt(NumC); format short g; NumE; NumC; 

45 NumEExcess=size(XVoro,2); MeanPairDist=mean(PairDist); VarPairDist=var(PairDist) ; 

46 PairDistMNorm=PairDist/MeanPairDist ; MeanPairDistMNorm=mean(PairDistMNorm) ; 

47 VarPairDistMNorm=var(PairDistMNorm) ; Moment2PairDistMNorm=moment (PairDistMNorm,2) ; 

48 Moment3PairDistMNorm=moment (PairDistMNorm,3); PairDistNNorm=PairDist/NormBase; 

49 MeanPairDistNNorm=mean(PairDistNNorm) ; VarPairDistNNorm=var (PairDistNNorm) ; 

50 Moment2PairDistNNorm=moment (PairDistNNorm,2); Moment3PairDistNNorm=moment (PairDistNNorm, 3) ; 


§ A.18 Number of vertices in high dimensions 


1% vhd.m ,aka f69.m, (c) K. N. Tiyapan 25th March, 2001 

2 clear; more off; format long g; echo off; TimeStartPreparing =cputime; 
3 pti =fopen(’/home/mjkvjkt/vn/v69’,’r’); sci =fscanf(pti, ’%d’, 4); 

4 Dimension =sci(1,1); VerticeNum =sci(2,1); CellNum =sci(3,1); 

5 sc2 =fscanf(pti, ’%f’, (Dimension, VerticeNum]); Vertices =sc2’; Framed =ones(CellNum, 1); 
6 for i=1:CellNun, 

7 sc3 =fscanf (pti, ’%d’, 1); 

8 for j=i:sci, 

9 sc4 =fscanf(pti, ’4d’, 1); Num =sc4+1; 

10 if ( max(abs(Vertices(Num, :))) > 0.5 ) 

11 Framed(i,i) =0; 

12 end 

if. end 

14 end 


15 fclose(pt1); pt2 =fopen(’/home/mjkvjkt/vn/n69’ ,’r’); 

16 scb=fscanf(pt2, ’4d’, CellNum); VerticesPerCell =sc5; fclose(pt2) ; 

17 MinVPerCell =min(VerticesPerCell) ; MaxVPerCell =max(VerticesPerCel1) ; 

18 MeanVPerCell =mean(VerticesPerCell); ScndMVPerCell =moment (VerticesPerCell,2) ; 

19 ThrdMVPerCell =moment (VerticesPerCell,3); FrthMVPerCell =moment (VerticesPerCell1,4) ; 

20 VarVPerCell =var(VerticesPerCell); StdVPerCell =std(VerticesPerCell) ; 

21 GMeanVPerCell =geomean(VerticesPerCell); HMeanVPerCell =harmmean(VerticesPerCel11) ; 

22 MedVPerCell =median(VerticesPerCell); MadVPerCell =mad(VerticesPerCell) ; 

23 KurVPerCell =kurtosis(VerticesPerCell); TabVPerCell =tabulate(VerticesPerCel]1) ; 

24 VPerInnerCell =frameit (VerticesPerCell,Framed); InnerVNum =sum(Framed) ; 

25 MinVPerInnerCell =min(VPerInnerCell); MaxVPerInnerCell =max(VPerInnerCel1) ; 

26 MeanVPerInnerCell =mean(VPerInnerCell); ScndMVPerInnerCell =moment (VPerInnerCell1,2) ; 

27 ThrdMVPerInnerCell =moment (VPerInnerCell1,3); FrthMVPerInnerCell =moment (VPerInnerCell1,4) ; 
28 VarVPerInnerCell =var(VPerInnerCell); StdVPerInnerCell =std(VPerInnerCel1) ; 

29 GMeanVPerInnerCell =geomean(VPerInnerCell) ; HMeanVPerInnerCell =harmmean(VPerInnerCel11) ; 
30 MedVPerInnerCell =median(VPerInnerCell); MadVPerInnerCell =mad(VPerInnerCell1) ; 

31 KurVPerInnerCell =kurtosis(VPerInnerCell); TabVPerInnerCell =tabulate(VPerInnerCell) ; 

32 more on; clf; bar(TabVPerCell(:,1) ,TabVPerCell(: ,2)); 


§ A.19 Example batch program, simulation and data extraction 


1 /home/bin/rbox 1000 t3765098 D6|/home/bin/qhull v o>/home/ghull/wrk/v761 

2 /usr/bin/tail -1000 /home/qghull/wrk/v761|/usr/bin/cut -f1 -d" ">/home/qhull/wrk/n761 
3 /usr/bin/rm -f /home/qhull/wrk/v761 

4 /usr/local/bin/matlab < /home/ghull/wrk/f761.m 


264 Ph.D. Thesis, UMIST. K N Tiyapan. Appendix A: Programs 


§ A.20 Voronoi operator of various order 


4% vov.m, voronoi of voronoi, (c) Kit Tiyapan, 2002 
clear all; itn=6; can=100; 
rand(’state’,sum(100*clock)); 
x{1}=rand (can, 2); 
for m=1:itn, 
[va{m}, ca{m}]=voronoin(x{m}) ; van(m)=size(va{m},1); 
vin{m}=ones(1,van(m)); vin{m}(1)=0; 
for i=2: van(m) , 
if ((max(va{m} (i, :))>4) | (min (va{m} (i, :))<0)) 
10 vin{m} (i)=0; 
11 end 
12 end 
13 c{m}=[]; cnt=0; 
14 for i=1:can(m), 


COonNnna«»hlwnr 


15 ca{m}{i, 2}=size(ca{m}{i,1},2); in=1; 

16 for j=1:ca{m}{i, 2}, 

17 if (~ vin{m}(ca{m}{i, 1}(j))) 

18 in=0; break; 

19 end 

20 end 

21 if (in) 

22 ent=cntt1; c{m}{cnt,1}=ca{m}{i,1}; c{m}{cnt, 2}=ca{m}{i, 2}; 
23 end 

24 end 


25 cn(m)=size(c{m},1); cnt=0; 
26 for i=1:van(m), 


27 if (vin{m}(i)) 

28 ent=cnt+1; vin{m}(i)=cnt; 
29 end 

30 end 

31 for i=1:cn(m), 

32 for j=1: c{m}{i, 23, 

33 c{m}{i, 1}(j)=vintm} (c{mH{i, 1}(j)); 
34 end 

35 end 

36 = vim}= [1]; 

37 for i=1:van(m), 

38 if (vin{m}(i)) 

39 vi{m}=[v{m}; va{m} (i,:)]; 
40 end 

41 end 


42 vn(m)=size(v{m},1); x{m+ti}=v{m}; can(mti)=vn(m); figure(m); clf; hold on; 
43 for i=1:cn(m), 


44 tmp=[c{m}{i,1},c{m}{i,1}(1)]; 


45 for j=1: ct{m}{i, 2}, 

46 ; plot ([v{m} (tmp(j) ,1) ,v{m} (tmp (j+1) ,1)], [v{m} (tmp (j) ,2) , vm} (tmp (j+1) ,2)1) ; 
47 en 

48 end 

49 axis equal; axis off; 

50 end 


§ A.21 Voronoi data structure for filtering membrane study 


1% vff.m, Voronoi for filtration, (c) 2002, Kit Tiyapan. 10th Nov. 
2 clear all; can=100; rand(’state’,sum(100*clock)); ca=rand(can,3); 
3 [va,vca]=voronoin(ca); van=size(va,i); vin=zeros(1,van) ; 

4 for i=1:van, 

5 vin(i)=(min(va(i,:))>0) & (max(va(i,:))<1); 

6 end 

7 cin=ones(1,can) ; 

8 for i=1:can, 

9 vea{i, 2}=vca{i,1}; vcaf{i,1}=size(vca{i,2},2); 

10 for j=1:vcafi,1}, 

11 if (~vin(vca{i,2}(j))) 

12 cin(i)=0; break; 

13 end 

14 end 

15 end 


16 c=[]; vc=[]; cnt=0; v=[]; cnu=0; vin=sparse(1,van) ; 
17 for i=1:can, 
18 if (cin(i)) 


19 ent=cntt+1; cin(i)=cnt; c(cnt,:)=ca(i,:); vef{cnt,1i}=vcaf{i,i}; vcf{cnt,2}=vca{i,2}; 
20 for j=1i:vc{cnt,1}, 

21 if (“vin (vca{i,2}(j))) 

22 cnu=cnuti; vin(vca{i,2}(j),1)=cnu; v(cnu,:)=va(vcafi,2}(j) ,:); 

23 end 


24 end 
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for j=1i:vc{cnt,1}, 
vei{cnt ,2}(j)=vin(vca{i,2}(j)); 
end 
end 
end 
cn=cnt; vn=cnu; 
for i=1:cn, 
tmp=ones (size(vc{i,2})); vcf{i,3}=sparse(tmp,vc{i,2},tmp,1,vn) ; 
end 


ta=delaunayn(ca); tan=size(ta,1); 
t=[]; cnt=0; bdr=[]; cnu=0; 
for i=1:tan, 

in=1; 

for j=1:4, 


if (~cin(ta(i,j))) 
in=0; break; 
end 
end 
if (in) 
cnt=cntt1; 
t(cnt,:)=ta(i,:); 
for j=1:4, 
t(cnt, j)=cin(ta(i,j)); 
end 
else 
for j=1:3, 
for k=(j+1):4, 
if ((cin(ta(i,j))) | (cin(ta(i,k)))) 
cnu=cnut+1; tma=vca{ta(i,j) ,2}; tmb=vca{ta(i,k) ,2}; 
tmd=ones(1,vca{ta(i,j),1}); tme=ones(1,vca{ta(i,k) ,1}); 


tmp=find(sparse(tmd,tma,tmd,i,van) & sparse(tme,tmb,tme,i,van)); tmq=[]; 


if (cin(ta(i,j))) 
bdr{cnu,1}=cin(ta(i,j)); 
else 
bdr{cnu, i}=cin(ta(i,k)); 
end 
bdr{cnu, 2}=size(tmp,2) ; 
for 1=1:bdr{cnu, 2}, 
tmq=[tmq,vin(tmp(1))]; 
end 
bdr{cnu, 3}=tmq; 
end 
end 
end 
end 
end 
tn=cnt; bdrn=size(bdr,1); bcc=sparse(cn,cn); 
for i=1:tn, 
for j=1:3, 
for k=(j+1):4, 
bec(t (i,j) ,t¢i,k))=1; bec(t (i,k) ,t(i,j))=1; 
end 
end 
end 
[tmf ,tmg]=find(triu(bcc)); bn=size(tmf,1); b=[1; 
for i=1:bn, 
b{i,1}(1,:)=[tmf (i) ,tmg(i)]; bf{i,4}=vc{tmf (i) ,3} & vc{tmg(i) ,3}; 
[nth, b{i,3}]=find (b{i,4}); b{i,2}=size(b{i,3},2); tmp=[]; 
for j=1:b{i,2}, 
tmp=([tmp;v(b{i,3}(j) ,:)]; 
end 
tma=max(tmp,[],1)-min(tmp,[],1); tmb=sortrows([1,2,3;tma]’,2); 
tmb=round(tmb(:,1)); tmq=([tmp(:,tmb(1,1)),tmp(:,tmb(2,1))]; 
tmp=delaunay(tmq(: ,1) ,tmq(:,2)); tmq=sparse(b{i,2},b{i,2}); 
for j=1:size(tmp,1), 
for k=1:2, 
for 1=(kt1):3, 
tmq(tmp(j,k) ,tmp(j,1))=tmq(tmp(j,k) ,tmp(j,1)) +1; 
tmq(tmp(j,1) ,tmp(j,k))=tmq(tmp(j,1) ,tmp(j,k)) +1; 
end 
end 
end 
[tma,tmb,tmc]=find(tmq) ; tmq=sparse(vn,vn) ; 
for j=1:size(tma,1), 
if (~ (tme(j)-1)) 


tmq(b{i,3} (tma(j)) ,b{i,3} (tmb(j)))=1; tmq(b{i,3} (tmb(j)) ,b{i,3} (tma(j)))=1; 


end 
end 
tma=[b{i,3}(1)]; tmb=b{i,3}(1); nth, tmc]=find(tmq(tmb, :)); 
tmd=tmc(1); tma=[tma,tmd]; tmq(tmb,tmd)=0; tmq(tmd,tmb)=0; tmb=tmd; 
while (tmb-b{i,3}(1)) 

Inth, tmc]=find(tmq(tmb,:)); tmd=tmc(1); tma=[tma,tmd] ; 
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107 tmq(tmb,tmd)=0; tmq(tmd,tmb)=0; tmb=tmd; 

108 end 

109 = b{i, 6}=tma; b{i,5}=b{i,6}(1,1:b{i,2}); b{i,7}=2; 
110 end 


111 for i=1:bn, 

112. bec (b{i,1}(1) ,b{i,1}(2)) =i; bec (b{i,1}(2) ,b{i,1} (1) ) =i; 

113 end 

114 be=[]; 

115 for i=1:cn, 

116s be fi, 1}=(; 

117 end 

118 for i=1:bn, 

119. be {b{i, 1} (1) ,1}=Ebc{b{i,1}(1)},i]; bef{b{i,1}(2) ,1}=[bc{b{i,1}(2)},i]; 
120 end 

121 n=bn; 

122 for i=1:bdrn, 

123 n=nti; b{n,i}=bdr{i,1}; b{n,2}=bdr{i,2}; b{n,3}=bdr{i,3}; 

124 tmp=ones(1,bdr{i,2}); b{n,4}=sparse(tmp,bdr{i,3},tmp,1,vn); tmp=(1; 
125 for j=1:b{n,2}, 

126 tmp=[tmp;v(b{n,3}(j) ,:)]; 

127 end 

128 tma=max(tmp,[],1)-min(tmp,[],1); tmb=sortrows([1,2,3;tma]’,2); 
129 tmb=round(tmb(:,1)); tmq=[tmp(:,tmb(1,1)),tmp(:,tmb(2,1))]; 
130 tmp=delaunay(tmq(: ,1) ,tmq(:,2)); tmq=sparse(b{n, 2}, b{n, 2}) ; 
131 for j=1:size(tmp,1), 


132 for k=1:2, 

133 for 1=(kt1):3, 

134 tmq(tmp (j,k) ,tmp(j,1))=tmq(tmp(j,k) ,tmp(j,1))+1; 
135 tmq(tmp(j,1) ,tmp(j,k))=tmq(tmp(j,1) ,tmp(j,k))+1; 
136 end 

137 end 

138 end 


139 [tma,tmb,tmc]=find(tmq) ; tmq=sparse(vn,vn) ; 
140 for j=1:size(tma,1), 


141 if (" (tme(j)-1)) 

142 ting (bin 3} Ctma(j)) bn, 3} Ctmb (j)))=1; tmq(b{n,3}(tmb(j)) ,b{n,3} (tma(j)))=1; 
143 en 

144 end 


145 tma=[b{n,3}(1)]; tmb=b{n,3}(1); [nth,tmc]=find(tmq(tmb,:)); tmd=tmc(1); 
146 tma=[tma,tmd]; tmq(tmb,tmd)=0; tmq(tmd,tmb)=0; tmb=tmd; 
147. while (tmb-b{n,3}(1)) 


148 Inth, tmc]=find(tmq(tmb,:)); tmd=tmc(1); tma=[tma,tmd] ; 
149 tmq(tmb,tmd)=0; tmq(tmd,tmb)=0; tmb=tmd; 

150 end 

151 b{n,6}=tma; b{n,5}=b{n,6}(1,1:b{n,2}); b{n,7}=1; 

152 end 


153 for i=(bnt1):n, 

154s be{b{i,1}}=0; 

155 end 

156 for i=(bnt1):n, 

157 be {b{i, 1}, 1}=[bce{b{i,1}}, i]; 
158 end 

159 % for graphical tests 

160 clf; hold on; 

161 for k=1:cn, 

162 Inth,ntg,tma]=find(bcc(k,:)); 
163 for i=1:size(tma,2), 


164 tmp=[]; 

165 for j=1: (b{tma(i) ,2}+1), 

166 tmp=([tmp;v(b{tma(i) ,6}(j),:)]; 
167 end 

168 plot3(tmp(: ,1),tmp(: ,2) ,tmp(: ,3)); 
169 end 

170 end 

171 for i=bn:n, 

172 tmp=[] ; 

173 for j=1: (b{i,2}+1), 

174 tmp=([tmp;v(b{i,6}(j),:)]; 

175 end 

176 plot3(tmp(: ,1),tmp(: ,2) ,tmp(: ,3)); 
177 end 


178 axis equal; axis off; rotate3d; 


§ A.22 Centroid process on 2-d VT 


4 ctc.m, test centroid of polygons. (c) Kit Tiyapan, 2002. 

clear all; rand(’state’ ,sum(100*clock)); can=200; ca=rand(can,2); 

for z=1:3, 
[va,vca]=voronoin(ca); van=size(va,1); vcan=size(vca,1); vin=zeros(1,van); 
for i=1:van, 


aRWNE 
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if ((max(va(i,:))<1) & (min(va(i,:)>0))) 
vin(i)=1; 
end 
end 
cin=zeros(1,vcan) ; 
for i=1:vcan, 
vea{i,2}=vca{i}; vca{i,i}=size(vca{i,2},2); in=1; 
for j=1:vcafi,1}, 
if (“vin (vca{i,2}(j))) 
in=0; break; 
end 
end 
if (in) 
cin(i)=1; 
end 
end 
vin=zeros(1,van); 
for i=1:vcan, 
if (cin(i)) 
for j=1:vcafi,1}, 
vin(vcaf{i, 2}(j))=1; 
end 
end 
end 
v=[]; cnt=0; 
for i=1:van, 
if (vin(i)) 
ent=cntti; vin(i)=cnt; v(cnt,:)=va(i,:); 
end 
end 
vn=cnt; c=[]; vc=[]; cnt=0; 
for i=1:vcan, 
if (cin(i)) 
ent=cntt1; c(cnt,:)=ca(i,:); vef{cnt,1i}=vcafi, 1}; 
end 
end 
cn=cnt; 
for i=1:cn, 
for j=i:vcfi,1}, 
veti, 2} (j)=vin(vcefi, 2} (j)); 
end 
end 
for i=i:cn, 
tmp=[]; 
for j=i:vcfi,1}, 
tmp=[tmp;v(vcfi, 2}(j),:)]; 
end 


ve{cnt ,2}=vca{i, 2}; 


d=delaunay(tmp(:,1),tmp(:,2)); dn=size(d,1); tmj=[]; tmk=[]; tmi=0; 


for j=i:dn, 


tma=[v(vc{i,2}(d(j,1)),:) ;vveli, 2} (dQj,2)),:) svGveli, 23 (d(j,3)),:)]; 


tmp=sum(tma)/3; tma=[tma;tma(1,:)]; tmb=[]; 
for k=1:3, 


tmb=([tmb, sqrt (sum( (diff (tma(k: (k+1) ,:),1,1)).72))]; 


end 


tmc=sum(tmb)/2; tmq=sqrt (tmc* (tmc-tmb (1) ) * (tmc-tmb (2) ) * (tmc-tmb (3) )) ; 


tmk=([tmk;tmq]; tmi=tmittmq*tmp; 

end 

ve{i,3}=sum(tmk) ; vce{i,4}=tmi/sum(tmk) ; 
end 
vs{z,i}=c; vs{z,2}=v; vs{z,3}=vc; g=(1; 
for i=i:cn, 

g=[g;vc{i,4}]; 
end 
ca=g; figure(z); clf; hold on; 
for i=1:cn, 

tmp=[]; 

for j=i:vcfi,1}, 

tmp=[tmp;v(vcfi, 2} (j),:)]; 

end 

tmp=[tmp;tmp(1,:)]; plot (tmp(:,1),tmp(:,2)); 
end 
for i=i:cn, 

plot (vc{i,4} (1) ,vc{i,4} (2) ,’0’); 
end 
for i=i:cn, 

plot(c(i,1),c(i,2),’.’); 
end 
axis equal; axis off; 


84 end 
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§ A.23 Centroid process on 3-d VT 


1% cgi.m, c.g. operator on 3-d Voronoi, Kit Tiyapan (c) 12th November 2002. 
2 clear all; can=400; rand(’state’,sum(100*clock)); ca=rand(can,3); 

3 for z=1:3, 

4 cmx=max(max(ca)); cmn=min(min(ca)); [va,vca]=voronoin(ca) ; 

5 van=size(va,1); vin=zeros(1,van); 

6 for i=1:van, 

7 vin(i)=(min(va(i,:))>cmn) & (max(va(i,:))<cmx); 

8 end 

9 cin=ones(1,can) ; 

10 for i=1:can, 


11 veaf{i, 2}=vca{i,i}; vca{i,i}=size(vcaf{i,2},2); 
12 for j=1:vcafi,1}, 

13 if (~vin(vca{i,2}(j))) 

14 cin(i)=0; break; 

15 end 

16 end 

17 end 

iss c=; 


19 ve=[]; cnt=0; v=[]; cnu=0; vin=sparse(1,van) ; 
20 for i=1:can, 


21 if (cin(i)) 

22 ent=cntt1; cin(i)=cnt; c(cnt,:)=ca(i,:); ve{cnt,1i}=vca{i,1}; vc{cnt,2}=vcafi, 2}; 
23 for j=1:vc{cnt,1}, 

24 if (“vin(vca{i,2}(j))) 

25 cnu=cnut+1; vin(vca{i,2}(j) ,1)=cnu; v(cnu,:)=va(vcafi,2}(j),:); 
26 end 

27 end 

28 for j=1:vc{cnt,1}, 

29 vet{cnt ,2}(j)=vin(vca{i,2}(j)); 

30 end 

31 end 

32 end 


33 cn=cnt; vn=cnu; 

34 for i=1:cn, 

35 tmp=ones (size(vc{i,2})); vcf{i,3}=sparse(tmp,vc{i,2},tmp,1,vn) ; 
36 end 

37 ta=delaunayn(ca); tan=size(ta,1); t=[]; cnt=0; bdr=[]; cnu=0; 

38 tmt=sparse(1,vn); tmm=sparse(can,can) ; 

39 for i=1:tan, 


40 in=1; 

41 for j=1:4, 

42 if (“cin(ta(i,j))) 

43 in=0; break; 

44 end 

45 end 

46 if (in) 

47 ent=cnt+1; t(cnt,:)=ta(i,:); 

48 for j=1:4, 

49 t(cnt,j)=cin(ta(i,j)); 

50 end 

51 else 

52 for j=1:3, 

53 for k=(j+1):4, 

54 tma=ta(i,j); tmb=ta(i,k); 

55 if(((cin(tma)) | (cin(tmb))) & ~tmm(tma,tmb)) 

56 tmm(tma,tmb)=1; tmm(tmb,tma)=1; tma=vca{ta(i,j),2}; tmb=vca{ta(i,k) ,2}; 
57 tmd=ones(1,vca{ta(i,j),1}); tme=ones(1,vca{ta(i,k) ,1}); 
58 tmp=find(sparse(tmd,tma,tmd,i,van) & sparse(tme,tmb,tme,1,van)); 
59 tmg=[]; tmn=size(tmp,2) ; 

60 for l=1:tmn, 

61 tmg=[tmq,vin(tmp(1))]; 

62 end 

63 tma=ones(1,tmn); tmb=sparse(tma,tmq,tma,i,vn); xst=0; 
64 for m=1:cnu, 

65 if (~ (tmn-bdr{m, 2}) ) 

66 tmc=tmb & tmt(m,:); 

67 if (min (tmc) ) 

68 xst=1; break; 

69 end 

70 end 

71 if (xst) 

72 break; 

73 end 

74 end 

75 if (“xst) 

76 cnu=cnuti; 

77 if (cin(ta(i,j))) 

78 bdr{cnu,1}=cin(ta(i,j)); 


79 else 
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bdr{cnu, i}=cin(ta(i,k)); 
end 
bdr{cnu,2}=tmn; bdr{cnu,3}=tmq; bdr{cnu,4}=tmb; tmt(cnu,:)=tmb; 
end 
end 
end 
end 
end 
end 
tn=cnt; bdrn=size(bdr,1); bcc=sparse(cn,cn) ; 
for i=1:tn, 
for j=1:3, 
for k=(j+1):4, 
bee(t (i,j) ,t¢i,k))=1; bec(t (i,k) ,t(i,j))=1; 
end 
end 
end 
[tmf ,tmg]=find(triu(bcc)); bn=size(tmf,1); b=[]; 
for i=1:bn, 
b{i,1}(1,:)=[tmf (i) ,tmg(i)]; bli, 4}=vc{tmf (i) ,3} & vc{tmg(i) ,3}; 
(nth, b{i,3}]=find(b{i,4}); b{i,2}=size(b{i,3},2); tmp=[]; 
for j=i:b{i,2}, 
tmp=[tmp;v(b{i,3}(j),:)]; 
end 
tma=max(tmp,[],1)-min(tmp,[],1); tmb=sortrows([1,2,3;tma]’,2); 
tmb=round(tmb(:,1)); tmq=[tmp(: ,tmb(1,1)) ,tmp(: ,tmb(2,1))]; 
tmp=delaunay(tmq(: ,1) ,tmq(:,2)); tmq=sparse(b{i,2},b{i,2}) ; 
for j=1:size(tmp,1), 
for k=1:2, 
for 1=(kt1):3, 
tmq(tmp (j,k) ,tmp(j,1))=tmq(tmp(j,k) ,tmp(j,1))+1; 
Sng Comp Lemp) ema ems PSE) EE 
en 
end 
end 
[tma,tmb,tmc]=find(tmq) ; tmq=sparse(vn,vn) ; 
for j=1:size(tma,1), 
if (~(tme(j)-1)) 
tmq(b{i,3}(tma(j)) ,b{i,3}(tmb(j)))=1; tmq(b{i,3} (tmb(j)) ,b{i, 3} (tma(j)))=1; 
end 
end 
tma=[b{i,3}(1)]; tmb=b{i,3}(1); nth, tmc]=find(tmq(tmb, :)); 
tmd=tmc(1); tma=[tma,tmd]; tmq(tmb,tmd)=0; tmq(tmd,tmb)=0; tmb=tmd; 
while (tmb-b{i,3}(1)) 
[nth,tmc]=find(tmq(tmb,:)); tmd=tmc(1); tma=[tma,tmd] ; 
tmq(tmb,tmd)=0; tmq(tmd,tmb)=0; tmb=tmd; 
end 
b{i,6}=tma; b{i,5}=b{i,6}(1,1:b{i,2}); b{i,7}=2; 
end 
for i=1:bn, 
bec (b{i,1} (1) ,b{i,1}(2))=i; bec(b{i,1} (2), b{i,1}(1))=i; 
end 
be=(1; 
for i=1:cn, 
be{i,2}=01; 
end 
for i=1:bn, 
be{b{i,1}(1) ,2}=[be{b{i,1} (1) ,2},i]; befb{i, 1} (2) ,2}=[bc{b{i,1}(2) ,2},i]; 
end 
n=bn; 
for i=1:bdrn, 
n=nti; b{n,1}=bdr{i,i}; b{n,2}=bdr{i,2}; b{n,3}=bdr{i,3}; 
tmp=ones(1,bdr{i,2}); b{n,4}=sparse(tmp, bdr{i,3},tmp,i,vn); tmp=(]; 
for j=1:b{n,2}, 
tmp=[tmp;v(b{n,3}(j),:)]; 
end 
tma=max(tmp,[],1)-min(tmp,[],1); tmb=sortrows([1,2,3;tma]?,2); 
tmb=round(tmb(:,1)); tmq=[tmp(: ,tmb(1,1)) ,tmp(: ,tmb(2,1))]; 
tmp=delaunay(tmq(: ,1) ,tmq(:,2)); tmq=sparse(b{n,2},b{n,2}) ; 
for j=1:size(tmp,1), 
for k=1:2, 
for 1=(kt1):3, 
tmq(tmp (j,k) ,tmp(j,1))=tmq(tmp(j,k) ,tmp(j,1))+1; 
tmq(tmp(j,1) ,tmp(j,k))=tmq(tmp(j,1) ,tmp(j,k))+1; 
end 
end 
end 
[tma,tmb,tmc]=find(tmq) ; tmq=sparse(vn,vn) ; 
for j=1:size(tma,1), 
if (~(tme(j)-1)) 
tmq(b{n,3}(tma(j)) ,b{n,3}(tmb(j)))=1; tmq(b{n, 3} (tmb(j)) ,b{n, 3} (tma(j)))=1; 
end 
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end 
tma=[b{n,3}(1)]; tmb=b{n,3}(1); [nth,tmc]=find(tmq(tmb,:)); tmd=tmc (1); 
tma=[tma,tmd]; tmq(tmb,tmd)=0; tmq(tmd,tmb)=0; tmb=tmd; 
while (tmb-b{n, 3} ct) 
[nth,tmc]=find(tmq(tmb,:)); tmd=tmc(1); tma=[tma,tmd] ; 
tmq(tmb,tmd)=0; tmq(tmd,tmb)=0; tmb=tmd; 
end 
b{n,6}=tma; b{n,5}=b{n,6}(1,1:b{n,2}); b{n,7}=1; 
end 
for i=(bnt1) :n, 
be{b{i,1},2}=[bc{b{i,1},2},i]; 
end 
bn=size(b,1); 
for i=i:cn, 
bce{i,1i}=size (bc{i,2},2) ; 
end 
fe=O1; 
for i=i:cn, 
fc{i,2}=-0; 
end 
for i=1:bn, 
for j=1:b{i,7}, 
fc{b{i,1}(j),2}=[fc{b{i,1}(j) ,2},i]; 
end 
end 
for i=i:cn, 
fc{i,1}=size(fc{i,2},2); 
end 
tma=[]; tmb=[]; 
for i=1:cn, 
tmp=[]; tmf=[]; tmg=(]; 
for j=i:vcfi,1}, 
tmp=[tmp;v(vc{i,2},:)]; 
end 
tmd=delaunayn (tmp) ; 
tmn=size(tmd, 1); 
for j=1:tmn, 
tmq=[tmp(tmd(j,1),:) ;tmp(tmd(j,2),:) ;tmp(tmd(j,3) ,:) ;tmp(tmd(j,4),:)]; 
tma=sum(tmq)/4; tmb=abs (det ([tmq, ones(4,1)])/6); tmf=[tmf;tma*tmb]; tmg=[tmg,tmb] ; 
end 
ve{i,5}=sum(tmg); vc{i,4}=sum(tmf) /vc{i,5}; 
end 
bb=[]; 
for i=1:bn, 
if (~(b{i,7}-1)) 
bb=[bb, i]; 
end 
end 
vs{z,i}=c; vs{z,2}=v; vs{z,3}=vc; vs{z,4}=b; vs{z,5}=bc; vs{z,6}=fc; vs{z,7}=bb; g=[]; 
for i=i:cn, 
g=[g;vc{i,4}]; 
end 
gn=size(g,1); ca=g; can=gn; 


mag=400; 4% start statistics 
for z=1:3, 
ve=vs{z,3}; cn=size(vc,1); tmp=(1; 
for i=1i:cn, 
tmp=([tmp;vc{i,5}]; 
end 
tmp=mag+tmp; nc(z)=cn; sm(z)=mean(tmp); ss(z)=std (tmp) ; 
mt (z)=moment (tmp,3); mf(z)=moment (tmp, 4) ; 
end 
mag=10; mag=mag~3; tmq=[]; 
for z=1:3, 


for z=1:3, 
for i=1:size(vs{z,1},1), 
tmq{z}=[tmg{z} ;vs{z,3}{i,5}]; 
end 
tmq{z}=mag*tmq{z} ; 
end 
tmp=([] ; 
for z=1:3, 
tmp= (tmp; tmq{z}]; 
end 
tma=min(tmp); tmb=max(tmp); n=20; tmc=(tmb-tma)/n; tma=tma:tmc:tmb; 
for i=1:z, 
tmb=hist (tmq{i},tma); figure(i); clf; axes(’FontSize’ ,13) ; 
bar(tma,tmb); xlabel(’volume’,’FontSize’,15); ylabel(’number of cells’,’FontSize’ ,15); 
end 
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244 for zi=1:z, 
245 figure(zt+zi); clf; hold on; v=vs{zi,2}; b=vs{zi,4}; bb=vs{zi,7}; bbn=size(bb, 2) ; 
246 for i=1:bbn, 


247 tmp=(]; 

248 for j=1:b{bb(i) ,2}, 

249 tmp=[tmp;v(b{bb(i) ,5}(j),:)]; 

250 end 

251 tmp=(tmp;tmp(1,:)]; f1113(tmp(: ,1) ,tmp(: ,2) ,tmp(: ,3) ,b{bb (i) ,1}) ; 
252 end 

253 axis equal; axis off; rotate3d; view(96,0); 

254 end 


255 for zi=1:z, 
256 figure(ztzi); clf; hold on; v=vs{zi,2}; b=vs{zi,4}; bb=vs{zi,7}; bbn=size(bb, 2) ; 
257 for i=1:bbn, 


258 tmp=[]; 

259 for j=1:b{bb(i) ,2}, 

260 tmp=([tmp;v(b{bb(i) ,3}(j),:)]; 
261 end 

262 plot3(tmp(: ,1),tmp(: ,2) ,tmp(: ,3)); 
263 end 

264 axis equal; axis off; rotate3d; 

265 end 


§ A.24 Defining irregular objects 


4 tioa.m, three irregular object algorithms, Kit Tiyapan (c) 12th November 2002 


1 

2 % tioai.m 

3 clear all; 

4 vii, 1}=[1,1;3,4;3,8;3. 5,934,834,436,1354,334,2;3.5,133,23;3,3]; 
5 v{2,1}=[1,231,83;1.5,93;2,8;2,2;1.5,1]; v{3,1}=[1,7;3.5,936,7;4,83;4,2;3.5,1;3,2;3,8]; 
6 vn=size(v,1); mag=10; 

7 for i=1:vn, 

8 v{i, 2}=size(v{i,1},1); 

9 end 

10 for i=1:vn, 

11 tmp=max (v{i,1}) ; v{i,3}=sparse(tmp(1) ,tmp(2)) ; 
12 for j=i:v{i,2}, 

13 tmp=mag* [v{i, 1}3;v{i,1}(1,:)]; tmx=tmp((j+1) ,1)-tmp(j,1); 
14 tmy= =tmp ((j+1) , 2) - tmp (j, 2); cheseigu eae) 

15 if (~tmx) 

16 for k=tmp(j,2): sign(tmy) : tmp ((j+1) ,2), 

17 vfi, 3} (timp (j, 1) ,k)=1; 

18 end 

19 else 

20 if (~tmy) 

21 for k=tmp(j,1):tms:tmp((jt1),1), 

22 v{i,3} (k, tmp (j,2))=1; 

23 end 

24 else 

25 tmm=tmy/tmx; tmc=tmp(j,2)-tmm+tmp(j,1); 
26 for k=tmp(j,1):tms:tmp((j+1),1), 

27 tmb=round (tmm+k+tmc); v{i,3}(k,tmb)=1; 
28 end 

29 end 

30 end 

31 end 

32 end 

33 tma=0; 


34 ost(1,:)=[0,0]; 

35 for i=1:(vn-1), 

36 tmp=max(v{i}); tma=tmattmp(1); ost((it1) ,:)=[tma,0]; 

37 end 

38 tmx=[]; tmy=(1; 

39 for i=1:vn, 

40 [tma,tmb]=find(v{i,3}); tmn=size(tma,1); tma=mag*ost(i,1)*ones(tmn,1)+tma; 
41 tmb=mag*ost (i, 2)*ones (tmn, 1)+tmb; tmx= [tmx ; tma] ; tmy=[tmy ; tmb] ; 

42 end 

43 tmn=size(tmx,1); clf; 

44 for i=1:tmn, 

45 tma=tmx(i)-.5; tmb=tmx(i)+.5; tmc=tmy(i)-.5; tmd=tmy(i)+.5; 

46 £111([tma,tmb,tmb,tma] ,[tmc,tmc,tmd,tmd],k); hold on; 

47 end 

48 axis equal; axis off; 

49 % tioa2.m 

50 clear all; v{1,2}=[1,1;3,4;3,8;3.5,934,8;4,4;6,134,3;4,2;3.5,1;3,2;3,3]; 
51 v{2,2}=[1,231,831.5,9;2,8;2,2;1.5,1]; v{3,2}=[1,7;3.5,93;6,7;4,8;4,2;3.5,1;3,2;3,8]; 
52 vn=size(v,1); mag=10; iny=1000; tmn=0; 

53 for i=1:vn, 

54 vti,i}=size(v{i,2},1); tmm=max(max(v{i,2})); 

55 if (tmm>tmn) 
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tmn=tmm; 
end 
end 
for i=1:vn, 
tmp=[v{i, 2}; v{i,2}(1,:)]; 
for j=i:v{i,1}, 
tma=tmp((j+1),1)-tmp(j,1); tmb=tmp((j+1) ,2)-tmp(j,2); tmc=max (abs (tma) , abs (tmb) ) ; 
if (tmc<tmn) 
tmn=tmc; 
end 
if (tma) 
v{i,3}(j,1)=tmb/tma; 
else 
v{i,3}(j,1)=iny; 
end 
end 
end 
stp=tmn/mag ; 
for i=1:vn, 
tmp=round(max(v{i,2})/stp); v{i,4}=sparse(tmp(1) ,tmp(2)); tmp=[v{i,2};v{i,2}(1,:)]; 
for j=i:vfi,1}, 
if (abs (v{i, 3} (j))<0.5) 
tma=round(tmp(j,1)/stp); tmb=round(tmp((j+1),1)/stp) ; 
for k=tma:sign(tmb-tma) :tmb, 
tmc=round (tmp(j,2)/stp+ (k-tma) *v{i,3}(j)); vf{i,4}(k,tmc)=1; 
end 
else 
tma=round(tmp(j,2)/stp); tmb=round(tmp((j+1),2)/stp) ; 
for k=tma:sign(tmb-tma) :tmb, 
tmc=round (tmp(j,1)/stp+ (k-tma) /v{i,3}(j)); vfli,4}(tmc,k)=1; 
end 
end 
end 
end 
for i=1:vn, 
v{i, 5}=max (v{i, 2}) ; 
end 
tmp=(]; tmq=[]; tmr=[]; oft=0; 
for i=1:vn, 
[tma, tmb ,tmc]=find(v{i,4}); tma=(oft/stp) tones (size (tma) )+tma; 
tmp=[tmp;tma]; tmq=[tmq;tmb]; tmr=[tmr;tmc]; oft=oft+v{i,5}(1); 
end 
tmn=size(tmp,1); clf; 
for i=1:tmn, 
tma=tmp(i)-.5; tmb=tmp(i)+.5; tmc=tmq(i)-.5; tmd=tmq(i)+.5; 
fi11(Ctma,tmb,tmb,tma] ,[tmc,tmc,tmd,tmd],k); hold on; 
end 
axis equal; axis off; 
4 tiao3.m 
clear all; v{1,2}=[1,13;3,4;3,8;3.5,9;4,8;4,4;6,134,3;4,2;3.5,1;3,2;3,3]; 
v{2,2}=[1,2;1,8;1.5,9;2,8;2,2;1.5,1]; v{3,2}=[1,7;3.5,9;6,7;4,8;4,2;3.5,1;3,2;3,8]; 
vn=size(v,1); tma=[]; 
for i=1:vn, 
v{i,i}=size(v{i,2},1); tmp=[v{i,2};v{i,2}(1,:)]; 
for j=i:vfi,1}, 
tma=diff (tmp) ; 
end 
end 
tmb=max(min(abs(tma))); mag=10; mag=mag/tmb; 
for i=1:vn, 
tmc=min(v{i,2}); 
v{i,4}=ceil (mag*v{i,2}-[tmc(1) tones (v{i,1},1) ,tmc (2) ones (v{i,1},1)]); 
v{i,3}=max (v{i, 4}) ; 
end 
for i=1:vn, 
tmz=[v{i,4};v{i,4}(1,:)]; tma=diff(tmz); tmm=tma(:,2)./tma(:,1); tmp=[]; tmg=[1; 
for j=i:v{i,1}, 
tms=sign(tmz((j+1) ,1)-tmz(j,1)); tmx=tmz(j,1):tms:tmz((j+1) ,1); 
tmu=tmz(j,1)*ones(size(tmx)); tmv=tmz(j,2)*ones (size (tmx) ) ; 
tmy=ceil (tmm(j) *(tmx-tmu)+tmv); tmn=size(tmy,2); tma=diff(tmy); tmb=[]; tmd=[]; 
for k=1: (tmn-1), 
tmb=[tmb,tmx(k)]; tmc=min(tmy(k) ,v{i,3}(2)); tmd=[tmd,tmc]; 
for 1=1:abs(tma(k)), 
tmd=([tmd,min(v{i,3}(2) , (tmctl*tms))]; tmb=[tmb,tmx(k)]; 
end 
end 
tmx=tmb; tmy=tmd; tmp=[tmp,tmx] ;tmq=[tmq, tmy] ; 
end 
tma=ones(size(tmp)); v{i,5}=sparse(tmp,tmq,tma,v{i,3}(1) ,v{i,3}(2)); 
end 
for i=1:vn, 
tmz=[v{i,4};v{i,4}(1,:)]; tma=diff(tmz); tmm=tma(:,1)./tma(:,2); tmp=[]; tmg=[]; 
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for j=l1:vfi,1}, 
tms=sign(tmz((j+1) ,2)-tmz(j,2)); tmy=tmz(j,2):tms:tmz((j+1) ,2); 
tmv=tmz(j,2)*ones(size(tmy)); tmu=tmz(j,1)*ones (size (tmy)); 
tmx=ceil(tmm(j) *(tmy-tmv)+tmu); tmn=size(tmx,2); tma=diff(tmx); tmb=[]; tmd=[]; 
for k=1: (tmn-1), 
tmb=[tmb,tmy(k)]; tmc=min(tmx(k) ,v{i,3}(1)); tmd=[tmd,tmc]; 
for 1=1:abs(tma(k)), 
tmd=([tmd,min(v{i,3}(1), (tmct+1*tms))]; tmb=[tmb,tmy(k)]; 
end 
end 
tmy=tmb; tmx=tmd; tmp=[tmp,tmx]; tmq=[tmq,tmy]; 
end 
tma=ones(size(tmp)); v{i,5}=v{i,5}|sparse (tmp, tmq,tma,v{i,3}(1) ,v{i,3}(2)); 
end 
tmp=[]; tmq=[]; osx=0; osy=0; tma=0; tmb=0; 
for i=2:vn, 
tma=tmatv{(i-1),3}(1); tmb=0; osx=[osx,tma]; osy=[osy,tmb] ; 
end 
for i=1:vn, 
[tma, tmb]=find(v{i,5}) ; tmc=ones(size(tma)) ; 
tmp=[tmp; (tma+tmc*osx(i))]; tmq=[tmq; (tmb+tmc*osy(i))]; 
end 
tmn=size(tmp,1); clf; 
for i=1:tmn, 
tma=tmp(i)-.5; tmb=tmp(i)+.5; tmc=tmq(i)-.5; tmd=tmq(i)+.5; 
Pais Clena Gab. cuboeva Ie bene tiie eae na hold on; 
end 
axis equal; axis off; 


§ A.25 Investigating the distribution observed from within the network 
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4 dstnvst.m; Kit Tiyapan, 17th November 2002 
4% (x,y) in square domain 
clear all; Dim=2; St=sum(100*clock); rand(’state’,St); N=1000; 
X=rand(N,Dim); Ta=delaunay(X(:,1),X(:,2)); TaN=size(Ta,1); EXX=sparse(N,N); 
E=(]; DL=[]; xc=1/2; yc=1/2; LB=0.05; UB=1-LB; Xin=ones(N,1); 
for i=1:N, 

if ((min(X(i,1),X(i,2))<LB) | (max(X(i,1),X(i,2))>UB)) 

Xin(i,1)=0; 

end 
end 
4 or (x,y) in circular domain 
clear all; Dim=2; St=sum(100*clock); rand(’state’,St); N=1000; 
TwoPi=2*pi; X=(]; R=[]; xc=1/2; yc=1/2; 


for i=1:N, 
Tmp=rand(1,2); TmpB=(Tmp(1)-xc); TmpC=(Tmp(2)-yc); TmpA=(TmpB*TmpB+TmpC*TmpC) ; 
while (TmpA>(1/4)) 


Tmp=rand(1,2); TmpB=(Tmp(1)-xc); TmpC=(Tmp(2)-yc) ; TmpA=(TmpB*TmpB+TmpC*TmpC) ; 
end 
X=[X;Tmp]; R=[R;TmpA] ; 
end 
Ta=delaunay (X(:,1) ,X(:,2)); 
% or (r,theta) in a circle 
clear all; Dim=2; St=sum(100*clock); rand(’state’,St); N=1000; TwoPi=2*pi; 
R=rand(N,1); Th=TwoPitrand(N,1); X=[R.*cos(Th), R.*sin(Th)]; Ta=delaunayn(X) ; 
% and then 
TaN=size(Ta,1); EXX=sparse(N,N); E=[]; DL=[]; xc=0; yc=0; B=0.95; Xin=ones(N,1); 
for i=1:N, 
if (R(i,1)>B) 
Xin(i,1)=0; 
end 


for i=1:TaN, 
include=1; 
for j=1:(Dimt1), 
if (“Xin (Ta(i,j))) 
include=0; break; 


end 
end 
if (include) 
T=[T;Ta(i,:)]; 
end 
end 
TN=size(T,1); 
for i=1:TN, 


Tmp=(T(i,:),T(i,1)]; 
for j=1:(Dim+1), 
if (“EXX (Tmp (j) , Tmp (j+1) )) 
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50 E=[E; [Tmp(j) ,Tmp(j+1)]]; dx=X(Tmp(j+1) ,1)-X(Tmp(j) ,1); 

51 dy= toe 2)-X(Tmp(j) ,2); length=sqrt (dx*dx + dy*dy) ; 

52 xm=X (Tmp(j), 1) +(dx/2): =X (Tmp (4) ,2)+(dy/2) ; dx=xm-xc; dy=ym-yc; 
53 dist= sqrt (dx*dx +d a is DL=[DL; [dist ,length]]; 

54 EXX(Tmp (j) , Tap (j+1))= 1; EXX(Tmp(j+1) ,Tmp(j))=1; 

55 end 

56 end 

57 end 

58 EN=size(E,1); 

59 % plot 


60 figure(1); clf; hold on; 

61 for i=1:EN, 

62 plot ([X(E(i,1),1) ,X(E(i,2),1)], X(E(i,1) ,2) ,X(E(i,2) ,2)]); 

63 end 

64 axis equal; axis off; 

65 n=20; int=1/n; Tmp=zeros(n,2) ; 

66 for i=1:EN, 

67 TmpA=ceil(DL(i,1)/int); Tmp(TmpA,1)=Tmp(TmpA,1)+DL(i,2); Tmp(TmpA,2)=Tmp(TmpA,2)+1; 


70 for i=1:n, 
71 if (Tmp(i,2)) 


72 TmpA=[TmpA;Tmp(i,:)]; 
73 end 
74 end 


75 Ld=TmpA(:,1)./TmpA(:,2); LdN=size(Ld,1); Tmp=(int/2):int:(LdN*int); Ld=[Tmp’ ,Ld]; 
76 figure (2); clf; bar (Ld(: ,1),Ld(:,2),’m’); 
77 xlabel (’ Distance from centre’, ?FontSize’,13); ylabel(’Average length’, ’FontSize’ ,13) ; 


§ A.26 Miscellaneous functions 


4 findfarea.m, finds face area, (c) Kit Tiyapan, February, 2001. 
function [fca, ppr] = findfarea(odvc) 
nvthf=size(odvc,1); stp=floor(nvthf/3); ndpt =1+stp; rdpt =1+2*stp; 
nmvc= cross ((odvc(ndpt,:)-odvc(1,:)), (odvc(rdpt,:)-odvc(1,:))); 
clov =[odvc; odvc(1,:)]; xsq =nmvc(1,1)4#nmvc(1,1); ysq =nmvc(1,2)*nmvc(1,2); 
zsq =nmvc(1,3)*#nmvc(1,3); znmvc =sqrt(xsqtysqtzsq); nmnmv =nmvc/znmvc; socp =0; 
for i=1:nvthf, 
socp =socptcross(clov(i,:) ,clov((it1),:)); 
9 end 
10 fca =(abs(dot(nmnmv, socp)))/2; 
11 nvct =ones(3,1); crdm =[odvc(1,:); odvc(ndpt,:); odvc(rdpt,:)]; 
12 aprm =det([nvct, crdm(:,2), crdm(:,3)]); bprm =det([crdm(:,1), mnvct, crdm(:,3)]); 
13 cprm =det([crdm(: ,1), evant? 2). nvct]); 
14 dprm =det([crdm(:,1), crdm(:,2), crdm(:,3)]); ppr =[aprm, bprm, cprm, dprm]; 
15 % ordervertices.m, orders the vertices in a list, (c) Kit Tiyapan, February 2001. 
16 function [odvc] = ordervertices(vnsp) 
17 zvnsp =size(vnsp,1); 
1s if (zvnsp==3) 
19  odvc =vnsp; return; 
20 end 
21 vmny =1; vmxy =1; 
22 for i=2:zvnsp, 
23 «if (vnsp(i,2) < vnsp(vmny,2)) 
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24 vmny =i; 

25 elseif (vnsp(i,2) > vnsp(vmxy,2)) 
26 vmxy =i; 

27 end 

28 end 


29 ndps =[vnsp(vmny,1:2); vnsp(vmxy,1:2)]; aprm =det([[1;1],ndps(:,2)]); 

30 bprm Sane Cindpe 21),01;1]]); cprm =det (ndps) ; vrts =vnsp(vmny,:); vlfs =vnsp(vmxy,:); 
31 for i=1:zvnsp, 

32 if ((i7=vmny) & (i7=vmxy)) 


33 lfpq =aprm*vnsp(i,1)+bprm*vnsp (i,2)+cprm; 
34 if (1lfpq > 0) 

35 vrts =[vrts; vnsp(i,:)]; 

36 elseif (lfpq < 0) 

37 vifs =[vlfs; vnsp(i,:)]; 

38 end 

39 end 

40 end 


41 zvrts =size(vrts,1); zvlfs =size(vlfs,1); 
42 if(zvrts >= 3) 
43 if (vrts(1,2)==vrts(2,2)) 


44 if (vrts(i,1) > vrts(2,1)) 

45 vrts =[[vrts(2,:); vrts(1,:)]; vrts(1,3:zvrts)]; 
46 end 

AT end 


48 Angle =[]; 
49 for i=2:zvrts, 
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xed =vrts(i,1)-vrts(1,1); ycd =vrts(i,2)-vrts(1,2); ang =[ang; atan(ycd/xcd)]; 
end 
vrts =sort([ang,vrts(2:zvrts,:)],1); svrts =[vrts(1,:); vrts(:,2:5)]; 
else 
svrts =vrts; 
end 
if(zvlfs >= 3) 
if (vlfs(1,2)==vlfs(2,2)) 
if (vlfs(i,1) < vlfs(2,1)) 
vlfs =[vlfs(2,:); vlfs(1,:)]; 
end 
end 
ang =[]; 
for i=2:zvlfs, 
xed =vlfs(i,1)-vlfs(1,1); ycd =vlfs(i,2)-vlfs(1,2); ang =[ang; atan(ycd/xcd)]; 
end 
vlfs =sort ([ang,vlfs(2:zvlfs,:)],1); svlfs =[vlfs(1,:); vlfs(:,2:5)]; 
else 
svlfs =vlfs; 
end 
odvc =[svrts; svlfs]; 
4 perc.m, function to find percolation, Kit Tiyapan, (c) 21st November, 2002 
function [Pc,Cord,TSeries] = perc(N,LMat,UMat ,NeMat) 
Blocked=randperm(N); NClusA=0; Perco=0; 
for i=1:N, 
Joined=0; 
for j=1:NClusA, 
if (ClusA{j ,3} (1,Blocked(1,i)) ~=0) 
ClusA{j,1}=ClusA{j,i}+1; ClusA{j,2}(1,Blocked(1,i))=1; 
ClusA{j ,3}=ClusA{j,3} | NeMat(Blocked(1,i),:); Joined=1; 
end 
if (Joined==1) 
for k=1:4, 
ClusB{1,k}=ClusA{j,k}; 
end 
NClusB=1; 
if (j==1) 
Tmp=ClusA; clear ClusA; 
for k=1:(NClusA-1), 
for 1=1:4, 
ClusA{k,1}=Tmp{(k+1) ,1}; 
end 
end 
elseif (j==NClusA) 
Tmp=ClusA; clear ClusA; 
for k=1:(NClusA-1), 
for 1=1:4, 
ClusA{k,1}=Tmp{k,1}; 
end 
end 
else 
Tmp=ClusA; clear ClusA; 
for k=1:(j-1), 
for 1=1:4, 
ClusA{k,1}=Tmp{k,1}; 
end 
end 
for k=j:(NClusA-1), 
for 1=1:4, 
ClusA{k,1}=Tmp{(k+1) ,1}; 
end 
end 
end 
for k=1:(NClusA-1), 
if (sum(ClusA{k,2} & ClusB{1,3}) ~= 0) 
ClusB{1,1}=ClusB{1,1}+ClusA{k,1}; ClusB{1,2}=ClusB{1,2} | ClusA{k,2}; 
ClusB{1,3}=ClusB{1,3} | ClusA{k,3}; ClusB{1,4}=ClusB{1,4} | ClusA{k,4}; 
else 
NClusB=NClusB+t1; 
for 1=1:4, 
ClusB{NClusB ,1}=ClusA{k,1}; 
end 
end 
end 
if ((sum(full(LMat & ClusB{1,2}))~=0) & (sum(full(UMat & ClusB{1,2}))~=0)) 
ClusB{1,4}=1; Perco=1; 
end 
NClusA=NClusB; ClusA=ClusB; clear ClusB; break; 
end 
end 
if (Joined==0) 
NClusA=NClusAt1; ClusA{NClusA,1}=1; ClusA{NClusA,2}=sparse(1,Blocked(1,i),1,1,N); 
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132 ClusA{NClusA,3}=NeMat (Blocked(1,i),:); ClusA{NClusA,4}=0; 
133 end 

134 TSeries{i}{i,1}=ClusA; TSeries{1i}{i,2}=Perco; 

135 end 


136 Tmp=Blocked; Blocked=[]; 

137 for i=1:N, 

138 Blocked=[Blocked,Tmp(1, (N-it1))]; 
139 end 

140 Nc=0; TSnap=[]; 

141 for i=1:N, 

142 if (TSeries{i}{i,2}) 


143 Nc=i; break; 
144 end 
145 end 


146 Pc=Nc/N; Cord=mean(sum(NeMat,2)); clear ClusA ClusB; NClusA=0; Perco=0; 
147 for i=1:N, 

148 Joined=0; 

149 for j=1:NClusA, 


150 if (ClusA{j ,3} (1,Blocked(1,i)) ~=0) 

151 ClusA{j,1}=ClusA{j,i1}+1; ClusA{j,2}(1,Blocked(1,i))=1; 
152 ClusA{j ,3}=ClusA{j,3} | NeMat(Blocked(1,i),:); Joined=1; 
153 end 

154 if (Joined==1) 

155 for k=1:4, 

156 ClusB{1,k}=ClusA{j,k}; 

157 end 

158 NClusB=1; 

159 if (j==1) 

160 Tmp=ClusA; clear ClusA; 

161 for k=1:(NClusA-1), 

162 for 1=1:4, 

163 ClusA{k,1}=Tmp{(k+1) ,1}; 

164 end 

165 end 

166 elseif (j==NClusA) 

167 Tmp=ClusA; clear ClusA; 

168 for k=1: (NClusA-1) , 

169 for 1=1:4, 

170 ClusA{k,1}=Tmp{k,1}; 

171 end 

172 end 

173 else 

174 Tmp=ClusA; clear ClusA; 

175 for k=1:(j-1), 

176 for 1=1:4, 

177 ClusA{k,1}=Tmp{k,1}; 

178 end 

179 end 

180 for k=j:(NClusA-1), 

181 for 1=1:4, 

182 ClusA{k,1}=Tmp{(k+1) ,1}; 

183 end 

184 end 

185 end 

186 for k=1: (NClusA-1), 

187 if (sum(ClusA{k,2} & ClusB{1,3}) ~= 0) 

188 ClusB{1,1}=ClusB{1,1}+ClusA{k,1}; ClusB{1,2}=ClusB{1,2} | ClusA{k,2}; 
189 ClusB{1,3}=ClusB{1,3} | ClusA{k,3}; ClusB{1,4}=ClusB{1,4} | ClusA{k,4}; 
190 else 

191 NClusB=NClusB+1; 

192 for 1=1:4, 

193 ClusB{NClusB ,1}=ClusA{k,1}; 

194 end 

195 end 

196 end 

197 if ((sum(full(LMat & ClusB{1,2}))~=0) & (sum(full(UMat & ClusB{1,2}))~=0)) 
198 ClusB{1,4}=1; Perco=1; 

199 end 

200 NClusA=NClusB; ClusA=ClusB; clear ClusB; break; 

201 end 

202 end 

203 if (Joined==0) 

204 NClusA=NClusAti; ClusA{NClusA,1}=1; ClusA{NClusA,2}=sparse(1,Blocked(1,i),1,1,N); 
205 ClusA{NClusA,3}=NeMat (Blocked(1,i),:); ClusA{NClasA,49=0: 
206 end 

207 TSeries{2}{i,1}=ClusA; TSeries{2}{i,2}=Perco; 

208 end 


209 Nc=0; TSnap=[]; 

210 for i=1:N, 

211 if (TSeries{2}{i,2}) 
212 Nc=i; break; 

213 end 
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[Cord ,mean(sum(NeMat ,2))]; 


[Pc,Nc/N]; Cord 


214 end 


215 Pe 
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[2.5,3.8; 2.6 
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2 clear all; mee eek 


1% Amsterdam 


3 V 
2 
2 
2. 
2 
2 
3 
1. 

52 VN 


53 E 


103,104; 


17,169; 

112,456; 
118,119; 
124,128; 
131,133; 
139,141; 
147,153; 
151,192; 
159,160; 
164,185; 


12,207; 
17,37; 
103,105; 

112,113; 
117,457; 
124,127; 
131,132; 
139,140; 
147,152; 
151,189; 
158,161; 


60,61; 60,62; 
163,168; 


62 61,62; 61,64; 62,65; 63,64; 68,182; 69,181; 70,177; 70,181; 71,72; 71,74; 72,73; 72,452; 
91,92; 91,453; 


65 92,93; 92,95; 93,94; 93,107; 94,95; 94,106; 94,100; 95,96; 96,97; 96,172; 97,98; 97,100; 
102,103; 


12,209; 
17,18; 
111,455; 
117,118; 
130,131; 
138,458; 
147,149; 
151,154; 
158,159; 
163,164; 


21,22; 21,23; 21,182; 
124,125; 


12,13; 
16,168; 
101,108; 


111,112; 
116,117; 
128,130; 
138,141; 
144,147; 
151,152; 
157,451; 
162,165; 


82,92; 83,93; 83,84; 
124,123; 


16,40; 
20,183; 


57 22,24; 22,26; 22,28; 25,26; 25,66; 26,27; 26,56; 27,28; 27,30; 28,29; 29,30; 29,32; 


12,42; 
58 30,31; 30,55; 31,32; 31,34; 31,51; 32,33; 33,34; 33,36; 34,35; 35,36; 35,38; 


101,102; 


16,17; 

110,113; 
115,119; 
122,123; 
128,129; 
138,139; 
144,146; 
150,194; 
157,158; 
162,163; 


11,209; 
19,176; 20,21; 


100,454; 


11,43; 
15,163; 
110,111; 
115,116; 
121,122; 
127,128; 
136,138; 
144,145; 
150,193; 
156,157; 
161,184; 


10,44; 
15,16; 

19,29; 
109,114; 
114,166; 
120,121; 
126,159; 
136,137; 
141,143; 
150,151; 
155,189; 
161,162; 


10,11; 
14,164; 
19,20; 


109,110; 
114,115; 
119,120; 
126,156; 
134,136; 
141,142; 
149,150; 
155,156; 
160,166; 


14,15; 
18,173; 


108,109; 
113,116; 
118,123; 
126,127; 
134,135; 
140,144; 
148,196; 
154,155; 
160,165; 


13,206; 


[1,2; 1,4; 1,44; 1,39; 2,3; 2,9; 3,4; 3,6; 3,8; 3,9; 4,5; 5,6; 5,38; 5,46; 6,7; 6,45; 
18,32; 


59 36,37; 37,38; 37,40; 38,39; 39,40; 39,41; 39,43; 40,41; 41,42; 42,43; 45,46; 45,47; 46,51; 


60 47,48; 47,50; 48,49; 49,50; 49,53; 50,52; 51,52; 51,55; 52,53; 52,54; 53,58; 53,239; 
63 73,74; 73,79; 74,75; 74,78; 75,76; 76,77; 76,78; 76,89; 77,90; 78,79; 78,88; 79,80; 79,87; 


61 54,55; 54,57; 54,58; 55,56; 56,57; 57,59; 57,61; 58,332; 59,60; 59,332; 


64 80,81; 80,452; 80,86; 81,82; 81,85; 81,453; 82,83; 


66 98,99; 98,101; 99,100; 99,102; 99,105; 


54 7,8; 7,48; 8,9; 9,44; 


55 13,14; 

56 18,19; 

67 108,171; 
68 113,114; 
69 118,121; 
70 125,126; 
71 131,134; 
72 140,142; 
73 148,149; 
74 153,154; 
75 159,162; 
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76 165,167; 166,167; 166,171; 167,168; 167,170; 168,169; 169,170; 169,459; 170,171; 170,173; 
77: 171,172; 172,173; 172,174; 173,175; 173,459; 174,175; 174,177; 175,176; 175,178; 176,183; 
78 176,459; 177,178; 177,179; 178,180; 179,180; 180,181; 181,182; 182,183; 184,185; 184,187; 
79 185,186; 186,187; 186,205; 187,188; 187,204; 188,203; 188,451; 189,451; 189,190; 190,191; 
so 190,201; 191,192; 191,204; 192,193; 192,199; 193,195; 194,195; 194,197; 195,198; 196,197; 
81 197,460; 198,199; 198,401; 199,200; 200,201; 200,400; 201,202; 201,399; 202,203; 202,398; 
82 202,451; 203,204; 203,397; 204,205; 204,396; 205,206; 205,395; 206,207; 206,394; 207,208; 
83 207,392; 208,209; 208,210; 210,260; 210,211; 211,212; 211,256; 212,213; 212,217; 213,218; 
84 214,215; 214,219; 215,216; 215,220; 216,222; 216,245; 216,254; 216,255; 217,218; 217,218; 
85 217,223; 218,219; 218,224; 219,220; 220,221; 221,222; 221,227; 222,229; 223,224; 223,225; 
86 224,226; 225,226; 225,230; 226,232; 226,227; 227,228; 227,233; 228,229; 228,243; 229,245; 
87 230,232; 230,235; 231,232; 231,234; 231,236; 232,233; 233,234; 234,238; 235,236; 235,239; 
88 236,237; 236,239; 237,238; 237,461; 238,240; 239,330; 239,461; 240,241; 240,329; 241,242; 
89 241,243; 241,327; 242,244; 242,328; 243,244; 244,245; 245,246; 246,247; 246,462; 246,251; 
90 247,248; 247,249; 248,249; 249,250; 250,251; 251,252; 252,253; 253,254; 253,257; 254,462; 
91 255,256; 255,257; 256,257; 257,258; 258,259; 258,261; 258,263; 259,260; 260,383; 261,262; 
92 261,273; 262,263; 262,272; 263,264; 264,265; 264,266; 265,267; 266,267; 266,269; 267,268; 
93 268,269; 268,463; 269,270; 270,271; 270,293; 271,272; 271,274; 271,277; 272,273; 273,274; 
94 274,275; 275,276; 275,277; 276,281; 276,387; 276,436; 277,278; 277,280; 278,279; 278,293; 
95 278,284; 279,280; 279,284; 279,287; 281,283; 282,283; 282,464; 283,443; 284,285; 284,464; 
96 285,286; 285,287; 286,287; 286,465; 287,288; 287,291; 289,290; 289,296; 289,297; 290,291; 
97 290,379; 291,480; 291,380; 292,368; 292,382; 292,480; 293,294; 293,295; 294,295; 294,298; 
98 295,296; 295,298; 296,297; 297,466; 297,378; 298,299; 298,304; 299,300; 299,302; 300,301; 
99 300,466; 301,303; 301,377; 302,304; 302,316; 302,303; 303,373; 304,305; 305,306; 306,307; 
100 306,311; 306,314; 307,308; 307,310; 308,309; 309,310; 310,311; 311,312; 312,313; 312,314; 
101 313,315; 313,318; 314,315; 315,316; 315,317; 316,479; 316,371; 317,318; 317,353; 318,319; 
102 318,353; 319,320; 319,352; 319,328; 320,321; 320,327; 320,351; 321,322; 321,467; 321,340; 
103 322,468; 322,323; 323,324; 323,469; 324,325; 324,326; 325,326; 325,335; 326,327; 326,329; 
104 327,328; 329,330; 330,331; 330,335; 331,332; 331,333; 333,334; 333,337; 333,337; 333,343; 
105 334,337; 334,336; 335,336; 336,338; 336,469; 337,338; 337,470; 338,339; 338,467; 339,340; 
106 339,342; 340,341; 341,342; 341,351; 341,345; 342,470; 342,344; 343,470; 344,345; 344,471; 
107 344,472; 345,346; 346,347; 346,472; 346,473; 347,348; 347,351; 348,349; 348,352; 349,350; 
108 349,353; 349,473; 350,351; 350,474; 351,352; 352,353; 353,354; 354,359; 355,356; 355,357; 
109 355,474; 356,358; 356,363; 357,358; 357,359; 358,360; 359,360; 359,365; 360,361; 360,476; 
110 360,370; 361,362; 361,364; 361,476; 361,486; 362,363; 362,364; 362,475; 364,487; 365,367; 
111 365,366; 365,476; 366,367; 366,479; 367,368; 367,476; 367,477; 368,369; 368,477; 369,370; 
112 369,476; 370,478; 371,372; 371,373; 372,375; 372,479; 373,374; 374,375; 374,377; 375,376; 
113 376,381; 376,382; 376,477; 377,378; 377,466; 378,379; 378,381; 379,380; 380,381; 380,382; 
114 382,480; 383,384; 383,385; 384,386; 384,387; 385,386; 385,391; 386,387; 387,388; 388,389; 
115 388,391; 389,390; 389,435; 390,391; 390,393; 390,412; 391,392; 392,393; 393,394; 393,411; 
116 394,395; 395,396; 396,397; 397,398; 398,408; 399,400; 399,402; 400,403; 400,401; 401,404; 
117 402,403; 402,407; 403,404; 404,460; 405,406; 405,481; 405,421; 406,407; 406,419; 407,408; 
118 407,418; 408,409; 408,416; 409,410; 409,415; 410,411; 410,413; 411,412; 412,413; 412,435; 
119 413,414; 413,434; 414,415; 414,433; 415,416; 416,417; 417,418; 417,432; 418,419; 418,431; 
120 419,420; 419,430; 420,421; 420,423; 421,422; 422,481; 422,482; 423,482; 423,483; 424,425; 
121 424,429; 425,426; 425,428; 426,427; 426,483; 427,428; 427,485; 428,429; 429,430; 430,431; 
122 431,432; 432,433; 433,434; 434,435; 436,437; 436,443; 437,438; 437,444; 438,439; 438,445; 
123 439,440; 439,446; 440,441; 440,447; 441,442; 441,448; 442,450; 442,449; 450,485; 467,468; 
124 468,469; 485,483; 485,484; 452,453]; 

125 EN=size(E,1); 

126 Tmp=[128,130,.2,1.9; 128,130,.2,1.8; 128,130,.3,1.6; 128,130,.5,1.5; 208,209,3.1,2.8; 

127 112,207,3.2,2.4; 113,206,3.1,2.3; 147,153,1.4,.8; 163,168,1.6,3.2; 452,453,1,6.5; 
128 174,177,1.2,6.5; 175,178,1.4,6.4; 176,183,1.6,6.4; 19,20,2.2,6.3; 344,470,5,7; 

129 248,249,4.8,4.7; 324,325,4.6,5.9; 293,295,6.1,4.5; 278,284,6.3,4.4; 285,287,6.4,4.5; 
130 259,261,4.9,3.4; 261,272,5,3.4; 261,272,5.3,3.4; 211,212,3.7,3.7; 324,325,4.5,5.9;]; 
131 Imp=32/3/2.54; 1r1=1000; vx=[L,B;R,B;R,T;L,T]; 

132 c{1,2}=[C(VN+1) ,148,153,129]; c{2,2}=[148,460,402,189,126,129,153]; 

133 c{3,2}=[460 ,484, 389,394,402]; c{4,2}=[402,394,13,15,126,189]; 

134 c{5,2}=[484, (VN+2) ,288,278,275,389]; c{6,2}=[3894,389,275,210,10,13]; 

135 c{7,2}=[126,15,19,21,71,452,98,125]; c{8,2}=[129,126,125,98,105]; 

136 c{9,2}=[105 ,98,452,71, (VN+4)]; c{10,2}=[13,10,1,55,19,15]; 

137 c{11,2}=[71,21,23]; c{12,2}=[19,55,56,65,23,21]; 

138 c{13,2}=[55 ,331,343,65,56]; c{i4,2}=[210,211,212,239,331,55,1,10]; 

139 c{15,2}=[211, 257,308,331, 239,212]; c{16,2}=[211,210, 275,278, 294,308, 257]; 

140 c{17,2}=[294, 278,288, (VN+3) 474,315]; c{18,2}=[308,294,315,474,343, 331]; 

141 cn=size(c,1); 

142 % Brussels 


143 clear all; twn=’Brussels’; T=6; B=0; L=0; R=7; 

144 V=[.7,2.2; .6,2.3; .8,2.4; 1,2.3; .9,2.1; 1.2,2.1; 1.1,1.9; 1.5,2.4; 1.2,2.6; 1.1,2.7; 
145 .8,3; 1.3,2.7; 1.2,2.8; .7,2.8; .5,2.6; .4,2.5; .4,2.2; .2,2.5; .3,2.7; .4,2.9; 

146 .2,3; .5,3.5; .7,3.3; .9,3.2; 1.4,3; 1.5,3.2; 1.2,3.5; 1.6,3.4; 1.4,3.8; 1.8,3.5; 

147 2.253323 Vj 2<84 2.3593) 2..7,2585 16852653) 2.152.535 2.32535 .2,2.39 1.7,2.104 2.1.25 

148 1.9,1.6; 1.6,1.6; 1.7,1.4; 1.9,1; 2.6,1.5; 2.9,1.7; 2.8,1.8; 3.1,2;2.9,2; 2.4,2.1; 

149 2.8,2.2; 2.9,2.4; 3.2,2.5; 3.6,2.5; 4,2.3; 4.1,2.5; 3.8,2.7; 4.3,2.9; 4.5,3.1; 4.9,2.9; 
150 5,3.3; 4.6,3.2; 4.8,3.2; 4.4,3.6; 4.8,3.8; 4.4,4.1; 3.9,3.4; 4.1,3.2; 3.6,3; 3.4,3.3; 
151 3.3,2.8; 3,3.1; 3.6,3.6; 3.4,3.7; 3.2,3.8; 3,3.7; 2.8,3.8; 2.5,3.4; 2.3,3.6; 2.4,3.9; 
152 2,3.8; 2.1,4.1; 1.8,4.4; 1.6,4.1; 1.3,4.3; 1.2,4; 1,4; .7,3.8; .1,3.4; .1,3.7; 

158 .1,4.2; .3,4.3; .5,4.5; .7,4.5; 1.2,4.7; 1,4.8; .8,4.8; .3,4.9; .6,5.1; .5,5.5; 

154. .3,5.3; .1,5.5; .3,5.7; .6,5.6; .8,5.1; 1.3,5.4; 1.4,5.1; 1.5,5; 1.6,5.2; 1.4,4.7; 

155 1.3,4.4; 1.6,4.6; 2,4.7; 2.2,5.1; 2.2,5.4; 2.3,5.6; 2.1,5.7; 2,5.5; 1.9,5.4; 1.7,5.4; 
156 1.7,5.6; 1.8,5.9; 2.7,5.9; 2.6,5.7; 2.5,5.4; 2.7,5.6; 2.8,5.8;3.6,5.9; 3.8,5.8; 4.2,5.6; 
157 3.9,5.2; 3.7,5.3; 3.3,5.3; 3.2,5.4; 3,5.1; 3.2,5; 3.1,4.9; 2.9,5; 3,4.6; 2.8,4.3; 
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106,243; 
114,115; 
118,119; 
124,126; 
130,251; 
136,137; 
142,144; 
150,151; 
154,160; 
161,162; 
166,253; 
172,173; 
179,255; 
185,186; 
190,255; 
194,262; 
201,227; 
207 , 208; 
211,269; 
217 ,222; 
222,223; 
228,229; 
233,280; 
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; 17,80; 
; 85,86; 
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3 9,10; 9,12; 10,11; 10,13; 10,14; 11,14; 11,14; 11,24; 


3; 30,81; 
3 36,37; 


14,15; 
; 20,23; 
; 26,28; 
31,33; 
36,38; 


14,19; 
21,89; 
27,28; 
31,78; 
37,40; 


14,20; 15,16; 16,17; 17,18; 17,211; 
27,29; 27,87; 27,88; 28,30; 29,30; 29,84; 
32,35; 33,34; 34,37; 34,51; 34,52; 34,53; 
37,50; 38,39; 38,40; 39,40; 40,41; 40,45; 


18,19; 


18,215; 
21,215; 22,23; 22,27; 22,88; 22,89; 23,24; 24,25; 24,27; 


29,86; 
34,72; 
40,47; 


40,50; 


41,203; 42,43; 43,202; 43,44; 44,202; 44,203; 44,216; 44, 220; 45,46; 45,221; 
47,49; 48,49; 48,52; 48,53; 48,54; 49,51; 50,51; 51,52; 52,53; 53,54; 53,71; 

55,57; 55,200; 56,57; 56,58; 56,199; 57,58; 57,68; 57,69; 57,71; 58,59; 58,68; 

60,61; 60,190; 60,199; 61,63; 61,172; 62,173; 61,174; 61,175; 62,63; 62,235; 

64,66; 64,67; 64,235; 65,66; 65,157; 66,146; 67,68; 67,69; 67,73; 69,70; 

70,73; 70,236; 72,78; 73,74; 74,75; 74,236; 75,76; 75,141; 76,77; 76,236; 

78,79; 79,80; 79,81;80,82; 80,140; 81,82; 81,84; 82,83; 83,84; 83,112; 83,113; 

85,112; 86,87; 87,88; 87,93; 87,111; 88,89; 88,90; 88,92; 89,90; 89,215; 89,237; 


; 90,237; 91,92; 91,238; 92,93; 92,239; 93,94; 93,97; 93,98; 94,95; 94,97; 94,111; 


; 95,110; 95,111; 95,107; 96,97; 96,105; 97,99; 98,99; 98,101; 99,100;100,101; 


100,103; 


102,103; 
106,245; 
114,125; 
118,121; 
125,126; 
130,149; 
136,143; 
143,148; 
151,152; 
155,156; 
161,169; 
166,254; 
172,174; 
180,183; 
186,257; 
191,192; 
195,229; 
201 , 267; 
207 , 209; 
212,270; 
217,273; 
223,224; 
229,230; 
233,281; 


102,240; 
107,108; 
114,119; 
119,120; 
126,127; 
131,132; 
137,138; 
144,145; 
152,153; 
155,158; 
162,163; 
167,168; 
174,175; 
180,181; 
187,188; 
191,196; 
195, 263; 
202,204; 
207 , 268; 
212,271; 
286, 228; 
223,274; 
229,277; 
234 , 282; 


103,104; 
108,109; 
115,116; 
120,121; 
127,249; 
131,148; 
137,139; 
144,147; 
152,164; 
156,157; 
162,165; 
167,185; 
175,176; 
181,182; 
187,258; 
192,193; 
196, 266; 
204, 205; 
207 , 284; 
218,219; 
286 , 266; 
224,225; 
230,278; 
234, 283; 


103,241; 
108,110; 
115,118; 
121,122; 
128,129; 
132,133; 
138,139; 
145,146; 
152,287; 
157,158; 
163,164; 
168,169; 
176,178; 
181,187; 
187,251; 
192,194; 
197,266; 
204,213; 
208,209; 
218,272; 
219,234; 
224,275; 
230 , 263; 
242 , 243; 


104,105; 
108,113; 
116,117; 
122,248; 
128,133; 
133,134; 
139,140; 
146,147; 
153,154; 
158,159; 
163,252; 
168,171; 
177,178; 
182,183; 
188,189; 
193,195; 
197,201; 
205, 206; 
208, 213; 
218,217; 
220,221; 
225,226; 
230,279; 
243 , 244; 


105,106; 
109,120; 
116,246; 
122,242; 
128,250; 
133,136; 
139,142; 
146,150; 
153,161; 
158,173; 
164,165; 
169,170; 
177,183; 
182,186; 
188,260; 
193,196; 
197,198; 
205 , 216; 
209,210; 
216,231; 
221,222; 
225,276; 
231,232; 
263 , 264; 


106,107; 
110,111; 
117,118; 
123,124; 
129,130; 
134,135; 
140,141; 
147,148; 
153,163; 
159,160; 
164,166; 
170,171; 
178,179; 
182,256; 
189,190; 
193,228; 
198,199; 
205 , 231; 
209 , 269; 
216,219; 
221,224; 
225,227; 
231,233; 


106,109; 
110,112; 
117,122; 
123,127; 
129,132; 
135,136; 
141,142; 
147,149; 
154,155; 
159,170; 
165,167; 
170,172; 
178,180; 
183,184; 
189,261; 
194,195; 
198,200; 
206 , 208; 
210,211; 
216,217; 
221,225; 
226 , 227; 
232,233; 


263,265] ; 


106, 242; 
113,114; 
117,247; 
124,125; 
130,131; 
135,138; 
142,143; 
149,150; 
154,156; 
160,161; 
166,167; 
171,177; 
179,180; 
184,185; 
190,191; 
194,261; 
200,201; 
206 , 232; 
211,212; 
217,220; 
221,226; 
227,285; 
232,268; 


EN=size(E,1); 

Tmp=[11,13,1,3; 11,13,1.2,2.9; 20,23,.6,3.1; 34,51,2.6,2.4; 34, 
45 ,221,2.7,1.3; 45,221,2.6,1.2; 45,221,2.5,1; 45,221,2.4,.7; 56,58,4.3,2.7; 63,65,4. 
65 ,66,4.6,4; 72,78,2.7,3.3; 129,132,3.7,5.6; 130,131,4.1,5.3; 130,149,4.6,5.4; 

136 ,143,3.3,4.9; 136,143,3.3,4.8; 138,139,2.7,4.7; 152,164,6.5,5.4; 154,156,5.3,4.7; 
176,255,5.7,3; 179,180,6.4,3.2; 200,201,3.6,1.4; 201,267,4.1,.5; 221,226,2.9,.9; 

226 ,227,3.3,.5]; 

1Imp=20/(3*2.54); 1rl=1000; vx=(L,B;R,B;R,1;L,T]; 

c{1,2}=[281 , 233,216,205, 208,269,284, (VNt1)]; c{2,2}=[285,227,221,45,216, 233]; 
c{3,2}=[227,197,199,57,54,46,45,221,227]; c{4,2}=[286, 266,197, 227,285]; 
c{5,2}=[(264,193, 286, (VN+2)]; c{6,2}=[261,189,193,264]; 

c{7,2}=[286 ,193,189,60,199,197,266]; c{8,2}=[216,45,46,47,40,9,11,14, 269,208,205]; 
c{9,2}=[269,14,21,215]; c{10,2}=[14,11,83,110,96,92,90,21]; 
c{11,2}=[46,54,53,70,76,83,11,9,40,47]; 
c{13,2}=[189,187,166,152,61,60]; c{14,2}=[253,166,187,189,261]; 

c{15,2}=[253, 166,152,287, (VN+3)]; c{16, 2}=([61,152,287,151,146, 66, 65,63]; 
c{17,2}=[70,146,151,249,83,76]; c{is, Q}= (83,249, 248, 110]; c{19, Q}= [110, 248, 241,96]; 
c{20,2}=[96,241, (VN+4) , 239,92]; c{21,2}=[92,239.215.21,90]; enspigeles 1); 

4 Freiburg 


clear all; twn=’Freiburg’; T=5; B=0; L=0; R=6; 


53,3,2.6; 42,43,1.5,1. 


53 
8,3.6; 


c{12,2}=[199,60,61,63,65 ,66,146,70,53,54,57]; 


v=[4.2,1. 9; 3.5,2.1; 2.3, 2. 9; 2.4,3.3; 2.8,4.5; 3.3,T; 2.4,4.7; 2.4,T; 2.1,4.8; 2.2,T; 
1.6,4. 9; 1.2,T; 1.9,1.7; .9,4.3; .1,4.7; .3,T; L,4. 8; L,4. 4; Le 3.7; °3,3.25 

7,343 1. 2,3; 1.4, 2. 5; 1.5,2.9; 1.6,3.6; 2,3, ‘4; 1.9,2. 9; 1.5,2.3; 1.7,2; 1.9,2; 
2.3,2; 2.5,1.3; 3.4,1.2; 4.1,1.1; 4.8,1.2; 5.4, 1. 4; 5. 7,1.5; R, 1.5; R,1.8; 5.7,1.7; 
5.4,1.9; 5.6,2.2; 4.9,1.9; R,3.4; 5.8,1.1; 4.7,.7; 4.1,.7; 3, 3,.7; 4.7,.1; 5.3,B; 
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: -1,.8; 1.5,.6; 1.3,. 
.2,2.2; .6,1.8; 2.2,1. 
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E=(1,2; 1,34; 
11,12; 11,14; 
19,25; 20,21; 
28,30; 29,30; 
36,37; 36,41; 
45,52; 46,47; 
57,62; 58,61; 
66,68; 68,69; 
73,74]; 
EN=size(E,1); 
Tmp=(11,14,1.3,4.2; 12,14,1,4.6; 13,75,1.9,1.6; 13,76,1.8,1.5; 19,20,.5,3.6; 
31,32,3.2,1.9; 34,35,4.5,1.1; 36,41,5.3,1.7; 64,65,1,.5; 73,74,2,1.2]; 
Imp=2.9; 1r1=500; vx=(L,B;R,B;R,T;L,T]; 

c{1,2}=[67,74,71, (VN+1)]; c{2,2}=[55,33,74,67]; c{3,2}=[52,36,33,55, (VN+2)]; 
c{4,2}=[44,42,41,36,52]; c{5,2}=[36,41,42,4,74,33]; c{6,2}=[74,4,14,75,71]; 


1,43; 2,3; 2,33; 3,4; 3,27; 
12,14; 13,29; 13,74; 13,75; 
20,75; 21,22; 22,23; 22,24; 
30,31; 31,32; 32,33; 32,74; 
36,45; 37,40; 37,38; 37,45; 
46,49; 47,53; 47,48; 48,54; 
59,60; 60,61; 60,62; 62,66; 
68,70; 71,72; 71,73; 72,73; 


14,15; 
23,24; 
33,34; 
40,41; 
48,57; 
62,63; 
72,75; 


14,19; 15,16; 
23,28; 24,25; 
33,48; 34,35; 
40,42; 41,42; 
49,50; 49,53; 
62,74; 63,64; 


15,17; 
24,27; 
34 ,47; 
41,43; 
53,54; 
63,65; 


15,18; 
25,26; 
35 ,36; 
42,44; 
53,56; 
64,65; 


cn=size(c,1); 
% Manchester 


3,31; 4,5; 4,26; 5,6; 5,7; 7,8; 7,9; 9,10; 9,11; 


19,20; 
26,27; 
35 ,46; 
45 ,46; 
54,55; 
64,67; 


19,22; 
28,29; 
35,43; 
45,51; 
57,61; 
65,66; 


28,30,1.8,2.4; 


c{7,2}=[75,14,17]; c{8,2}=[17,14,12, (VWN+4)]; c{9,2}=[12,14,4,6]; c{10,2}=[6,4,42,44, (VN+3)]; 


246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 clear all; twn=’Mancheter’; T=9; B=0; L=0; R=9; 

263 V=[.7,.8; 1.9,.8; 1.9,.1; 2.6,.8; 2.6,.333.5,.3; 3.8,.3; 3.8,1; 3.9,.3; 4.1,.3; 

264 4.3,.3; 4,1; 5,.3; 5.3,.6; 5.1,1; 5.6,.1; 3.8,1.3; 3.5,1.5; 3.5,1.7; 3.8,1.8; 

265 4.8,1.5; 5.3,1.5; 5.4,1.3; 5.9,1; 6.3,.4; 6.8,.8; 6.6,1.4; 6.4,1.8; 6.2,1.9; 6.1,2; 

266 6.1,2.3; 6,2.4; 6.3,2.3; 6.4,2.2; 6.6,2.1; 6.3,2.6; 7.2,.2; 8.4,1; 8.6,.9; 8.8,1.1; 

267 8.7,1.2; 8.5,1.3; 8.1,2.4; 7.9,2.7; 7.5,2.6; 7.4,2.8; 7.7,3.1; 7.4,3.6; 8.1,3.6; 8.4,3.7; 
268 7.7,4.1; 7.3,3.8; 7.8,4.2; 8.8,4.3; 8.6,4.6; 8.3,4.9; 8,5.2; 7.7,4.8; 7.5,4.7; 7.3,4.6; 
269 7,4.4; 6.5,4; 6.5,3.8; 6.5,3.6; 5.9,3.2; 5.6,3.1; 5,2.7; 5.4,2; 4.4,2.3; 3.7,2.4; 

270 2.9,2.7; 2.1,2.2; 1.7,2.2; 1.8,2; 1.9,1.8; 2.1,1.9; 1.9,2.1; .7,1.3; .2,2.6; .5,3.6; 

271 + .4,3.7; .6,3.9; .7,3.7; 1.2,3.6; 1.2,3.5; 2.1,3.3; 2.6,3.1; 3,3; 3.3,2.9; 3.8,2.8; 

272 «©4.7,3.1; 5.2,3.6; 5.5,3.3; 5.7,3.5; 6.1,3.8; 6.3,4; 6.1,4.5; 6,4.4; 5.8,4.2; 5.6,4; 

273 5.4,3.7; 5,3.7; 4.6,3.4; 4.3,3.4; 4.5,3.6; 4.8,3.9; 5.3,4.4; 5.4,4.2; 5.7,4.6; 5.5,4.7; 
274 5.3,4.8; 5,4.6; 4.6,4.2; 4.1,4.6; 4,4.3; 4,4; .7,B; 4.1,3.6; 4.1,3.5; 3.4,3.6; 

275 «3.5,3.8; 3.2,3.5; 3.3,3.9; 2.8,4.1; 3.3,4.2; 3.4,4.5; 3.5,4.8; 3.6,5.2; 2.8,5.2; 2.8,5; 
276 «©2.5,5.1; 2.3,4.2; 1.9,4.3; 1.4,4.4; 1.5,4.7; 1.4,5.6; 2,5.6; 3.3,6.3; 2.5,7.1; 1.4,8.3; 
277. ~-.3,5.6; 1.2,5.6; 3.5,7.7; 4.4,8.2; 4.8,7.4; 5.4,7.3; 6.3,7; 6.9,6.3; 7.1,6.2; 7.3,6; 

278 7.4,5.8; 7.1,5.5; 6.9,5.6; 6.7,5.7; 6.5,5.8; 6,6.2; 5.8,6.4; 5.3,6.8; 4.7,7.1; 4.6,6.7; 
279 4.4,7; 4,6.9; 3.9,6.7; 3.9,6.6; 3.6,6.6; 3.8,6.3; 3.7,5.9; 4.2,5; 4.7,4.9; 4.3,5.7; 

280 4.5,6.1; 4.6,6.4; 4.2,6.6; 4.2,6.2; 5.4,5.8; 5.1,6.3; 5.7,4.9; 6,5.3; 6.2,5.6; 6.5,5.5; 
281 6.3,5.2; 6.4,5.1; 6.6,5.1; 6.9,5.3; 6.7,5.4; L,.4; L,1; L,2.1; L,2.6; L,3.7; 

282 L,4.1; L,5.5; 1.3,T; 2.8,T; 4.6,T; 8.2,T; R,7.3; R,4.9; R,4.2; R,3.6; 

283 R,3.1; R,2.9; R,1.7; R,1.1; R,.1; 7.3,B; 6.8,B; 6.4,B; 5.6,B; 5.4,B; 

284 5.2,B; 4.4,B; 4.3,B; 4.1,B; 3.9,B; 3.4,B; 2.6,B; 1.9,B; 1.7,B; 5.5,6.2]; 

285 VN=size(V,1); 

286 E=[1,2; 1,78; 1,117; 1,186; 2,3; 2,4; 2,75; 3,5; 3,218; 3,219; 4,5; 4,6; 5,6; 5,217; 6,7; 
287 6,216; 7,8; 7,9; 7,215; 8,9; 8,17; 9,214; 10,11; 10,12; 10,213; 11,12; 11,13; 11,212; 12,17; 
288 13,14; 13,211; 14,15; 14,16; 15,17; 15,21; 15,23; 16,25; 16,209; 16,210; 17,18; 17,20; 18,23; 
289 18,76; 19,20; 19,22; 19,72; 20,21; 20,70; 21,22; 21,69; 22,30; 23,29; 24,25; 24,27; 24,67; 
290 25,26; 25,208; 26,27; 26,37; 27,28; 27,43; 28,29; 28,31; 28,35; 29,35; 30,31; 30,34; 31,32; 
291 31,33; 32,36; 32,66; 32,68; 33,34; 33,36; 34,46; 35,45; 36,65; 37,38; 37,206;37,207; 38,39; 
292 38,42; 39,40; 39,205; 40,41; 40,204; 41,42; 41,203; 42,43; 43,44; 44,45; 44,47; 45,202; 

293 46,47; 46,201; 47,48; 48,49; 48,64; 48,61; 49,50; 49,200; 50,51; 50,54; 51,52; 51,53; 53,55; 
294 53,59; 54,55; 54,199; 55,56; 55,198; 56,57; 56,58; 57,58; 57,151; 58,59; 59,60; 60,61; 60,184; 
295 61,62; 61,183; 62,63; 62,97; 63,64; 63,96; 64,65; 64,95; 65,66; 65,94; 66,67; 66,93; 67,68; 
296 67,69; 67,91; 69,70; 70,90; 70,71; 71,72; 71,87; 71,88; 72,73; 72,74; 72,77; 73,74; 73,76; 
297 73,77; 73,85; 74,75; 74,78; 75,76; 78,187; 79,80; 79,85; 79,188; 79,189; 80,81; 80,83; 81,82; 
298 81,190; 82,83; 82,142; 83,84; 84,85; 84,86; 84,134; 86,87; 86,132; 87,88; 88,89; 88,122; 
299 89,90; 89,120; 90,91; 90,104; 91,92; 91,103; 92,93; 92,101; 92,102; 93,94; 94,95; 94,101; 
300 95,96; 95,99; 96,98; 97,98; 97,177; 98,99; 98,109; 99,100; 100,101; 100,108; 102,103; 102,106; 
301 102,108; 103,105; 104,105; 104,119; 105,106; 105,118; 106,107; 106,113; 107,108; 107,110; 
302 107,112; 108,109; 109,110; 110,111; 110,177; 111,112; 111,169; 111,175; 112,113; 112,169; 
303 113,114; 114,115; 114,127; 114,168; 115,116; 115,126; 116,118; 116,125; 118,119; 118,121; 
304 119,120; 120,121; 121,123; 122,123; 122,124; 123,124; 123,125; 124,125; 124,132; 125,126; 
305 126,127; 127,128; 127,130; 128,129; 128,167; 129,130; 129,167; 130,131; 131,132; 131,137; 
306 132,133; 133,134; 133,135; 134,135; 135,136; 136,137; 136,139; 136,142; 137,138; 138,139; 
307 138,165; 138,167; 139,140; 139,143; 140,141; 140,193; 141,142; 141,192; 143,144; 143,162; 
308 143,194; 144,145; 144,195; 145,146; 145,159; 146,147; 146,158; 147,148; 147,157; 147,196; 
309 148,149; 148,155; 149,150; 149,154; 149,197; 150,151; 150,153; 151,152; 152,153; 152,184; 
310 153,154; 153,185; 154,155; 154,180; 155,156; 155,179; 156,157; 156,175; 157,220; 158,159; 
311 158,176; 158,220; 159,160; 160,161; 160,172; 161,162; 161,173; 162,163; 163,164; 163,165; 
312 164,166; 164,173; 165,166; 166,167; 166,174; 167,170; 168,169; 168,170; 170,171; 171,172; 
313 171,174; 171,175; 172,173; 172,176; 175,179; 176,220; 177,178; 178,179; 178,181; 179,180; 
314 180,181; 180,185; 181,182; 182,183; 183,184; 184,185]; 

315 EN=size(E,1); 

316 Tmp=[4,6,3.4,.7; 7,8,3.8,.7; 11,12,4.2,.8; 13,14,5,.5; 15,23,5.4,1.2; 17,18,3.5,1.4; 

317 18,23,4.9,1.1; 19,20,3.5,1.8; 19,22,4.9,1.4; 21,22,5.2,1.6; 28,35,6.5,1.7; 28,35,6.6,1.8; 
318 30,31,5.9,2.1; 38,42,8.4,1.1; 44,45,7.6,2.6; 45,202,7.8,2.8; 46,47,7.4,2.9; 46,201,7.8,3; 
319 50,51,7.8,3.8; 56,58,7.8,4.6; 57,58,7.6,5; 71,87,2.2,2.8; 71,87,2.4,3; 71,87,2.5,3; 

320 72,73,1.9,2.3; 82,142,.9,5.4; 82,142,1.2,5.4; 90,91,4.3,2.6; 116,118,4.2,3.9; 122,124,2.7,3.6; 
321 124,125,2.9,4.3; 128,129,3.2,5.3; 129,167,2.9,5.5; 131,137,2.4,5.2; 135,136,1.4,4.9; 


322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
3389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
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136,139,1.4,6.4; 140,141,.3,7.1; 158,220,5.4,6.7; 161,162,4.3,7.1; 161,173,4.3,6.9]; 
1Imp=3; 1r1=1000; vx=[L,B;R,B;R,T;L,T]; 
c{1,2}=([218,72,85,189, (VN+1)]; c{2,2}=[218,72,17,213]; c{3,2}=[213,17,15, 209]; 
c{4,2}=[209,15,29,206]; c{5,2}=[206,29,44,205]; c{6,2}=[205,44,202, (VN+2)]; 
c{7,2}=[202,44,48,49,54,199]; c{8,2}=[29,44,48,64,66]; c{9,2}=[15,29,66,69]; 
c{10,2}=[72,17,15,69,71]; c{11,2}=[85,72,71,123,133,135]; c{12,2}=[189,85,135,136,192]; 
c{13,2}=[71,69,66,106,105,123]; c{14,2}=[66,64,62,97,177,106]; c{i5,2}=[64,48,49,54,150,97,62]; 
c{16,2}=[199,54,150,147,196, (VN+3)]; c{17,2}=[177,97,150,147,220,175,111]; 
c{18,2}=[123,105,106,177,111,175,166,167]; c{19,2}=[136,135,133,123,167,139] ; 
c{20, 2}=[192, 136,139, 140,193, (VN+4)]; c{21,2}=[193,140,139,143,194]; 
c{22,2}=[139,167,166,162,143]; c{23,2}=[143,162,166,175,220,147,145,144]; 
c{24,2}=[194,143,144,195]; c{25,2}=[195,144,145,147,196]; 
cn=size(c,1); 
4 road percolation 
TmpN=size(Tmp,1); Tn=sparse(VN,VN); Tnp=(]; 
for i=1:TmpN, 

Tn(Tmp(i,1),Tmp(i,2))=0; Tnp{Tmp(i,1) ,Tmp(i,2)}=0; 
end 
for i=1:TmpN, 

Tn(Tmp(i,1) ,Tmp(i,2))=Tn(Tmp(i,1) ,Tmp(i,2))+1; 


Tnp{Tmp (i,1) ,Tmp(i,2)}=[Tnp{Tmp(i,1) ,Tmp(i,2)};Tmp(i,3:4)]; 
end 
clf; hold on; 
for i=1:EN, 
Tmp=[V(E(i,1),:)]; 
if (Tn(E(i,1) ,E(i,2))) 
for j=1i:Tn(E(i,1) ,E(i,2)), 
Tmp=([Tmp; Tnp{E(i,1) ,E(i,2)}(j,:)1]; 
end 
end 
Tmp=[Tmp;V(E(i,2) ,:)]; TmpN=size(Tmp,1); 
for j=1:(TmpN-1), 
pron Cie o1),Tmp((jt+1),1)], [Tmp(j,2) ,Tmp((j+1) ,2)]); 
en 
end 
plot ([L,R,R,L,L],[B,B,T,T,B]); tma=B-(T-B) /20; 


plot ({L, (L+1lmp)], [tma,tma] ,’LineWidth’ ,1.5); 
tmb=strcat (num2str(lrl),’ metres’); text ((L+lmptabs(tma/2)) ,tma,tmb) ; 
axis equal; axis off; title(twn,’FontSize’ ,15); 
4 vertices 
NeVMat=sparse(VN,VN); LVMat=sparse(1,VN); UVMat=sparse(1,VN); bry=[]; EV=(1; 
for i=1:VN, 
EV{i,2}=(1; 
end 
for i=1:EN, 
NeVMat (E(i,1),E(i,2))=1; NeVMat(E(i,2) ,E(i,1))=1; 
EV{E(i,1) ,2}=[EV{E(i,1) ,2},i]; EV{E(i,2) ,2}=[EV{E(i,2) ,2},i]; 
if (V(E(i,1),1)<=L) 
LVMat (1,E(i,1))=1; bry=[bry,E(i,1)]; 
end 
if (V(E(i,2) ,1)<=L) 
LVMat (1,E(i,2))=1; bry=[bry,E(i,2)]; 
end 
if (V(E(i,1),1)>=R) 
UVMat (1,E(i,1))=1; bry=[bry,E(i,1)]; 
end 
if (V(E(i,2) ,1)>=R) 
UVMat (1,E(i,2))=1; bry=[bry,E(i,2)]; 
end 
end 
for i=1:VN, 
EV{i, 1}=size (EV{i,2},2); 
end 
A=V; N=size(A,1); LMat=LVMat; UMat=UVMat; NeMat=NeVMat; 
[pc, cord, tsries]=perc(N,LMat , UMat ,NeMat) ; 
4 edges 
NeEMat=sparse (EN ,EN) ; 
for i=1:VN, 
for j=1:(EV{i,1}-1), 
for k=(j+1) :EV{i,1}, 
NeEMat (EV{i,2}(j) ,EV{i,2} (k))=1; NeEMat (EV{i,2}(k) ,EV{i,2}(j))=1; 
end 
end 
end 
LEMat=sparse(1,EN); UEMat=sparse(1,EN) ; 
for i=1:VN, 
if (LVMat (i)) 
for j=1:EV{i,1}, 
LEMat (EV{i, 2} (j))=1; 
end 
end 
if (UVMat (i)) 
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404 for j=1:EV{i,1}, 

405 UEMat (EV{i, 2}(j))=1; 
406 end 

407 end 

408 end 


409 A=E; N=size(A,1); LMat=LEMat; UMat=UEMat; NeMat=NeEMat; 

410 [pc,cord,tsries]=perc(N,LMat , UMat ,NeMat) ; 

411 % cells 

412 v=[V;vx]; vn=size(v,1); lcm=sparse(i,cn); ucm=sparse(1,cn) ; 

413 for i=1:cn, 

414 cf{i,1}=size(c{i,2},2); tmp=ones(1,c{i,1}); cf{i,3}=sparse(tmp,c{i,2},tmp,1,vn); 
415 for j=i:cfi,1}, 


416 tma=c{i,2}(j); 
417 if (v(tma, 1) >=R) 
418 ucm(i)=1; 

419 end 

420 if (v(tma,1)<=L) 
421 lem(i) =1; 

422 end 

423 end 

424 end 


425 b=[]; ncm=sparse(cn,cn) ; 
426 for i=1:(cn-1), 
427 for j=(it1):cn, 


428 tmn=sum(c{i,3} & c{j,3}); 

429 if (tmn>1) 

430 b=[b;i,j]; nem(i,j)=1; ncem(j,i)=1; 
431 end 

432 end 

433 end 


434 bn=size(b,1); A=c; N=size(A,1); LMat=lcm; UMat=ucm; NeMat=ncm; 
435 [pc,cord,tsries]=perc(N,LMat ,UMat ,NeMat) ; 

436 % bonds 

437 lbm=sparse(1,bn); ubm=sparse(1,bn) ; 

438 for i=1:bn, 

439 «if (1lem(b(i,1)) | lem(b(i,2))) 


440 lbm(i)=1; 

441 end 

442 if(ucm(b(i,1)) | ucm(b(i,2))) 
443 ubm(i)=1; 

444 end 

445 end 


446 tmp=sparse(bn,cn) ; 

447 for i=1:bn, 

448 tmp (i,b(i,1))=1; tmp(i,b(i,2))=1; 
449 end 

450 nbm=sparse(bn, bn) ; 

451 for i=1:(bn-1), 

452 for j=(it1):bn, 


453 tmn=sum(tmp(i,:) & tmp(j,:)); 
454 if (tmn) 

455 nbm(i,j)=1; nbm(j,i)=1; 

456 end 

457 end 

458 end 


459 A=b; N=size(A,1); LMat=lbm; UMat=ubm; NeMat=nbm; 
460 [pc,cord,tsries]=perc(N,LMat ,UMat ,NeMat) ; 

461 % plot max clusters 

462 tma=zeros(1,N); tmb=zeros(1,N); 

463 for i=1:N, 

464 for j=1:2, 


465 tsries{2,j}=zeros(1,N); tmn=size(tsries{1, j}{i,1},1); 
466 tmp=(]; 

467 for k=1:tmn, 

468 tmg=[tsries{i,j}{i,1}{k,1}]; tmp=[tmp,tmq] ; 
469 end 

470 switch j 

471 case 1 

472 tma(i)=max (tmp) ; 

473 case 2 

474 tmb(N-it+1) =max (tmp) ; 

475 end 

476 end 

477 end 


478 clf£; tmp=1:N; tmp=tmp/N; axes(’FontSize’ ,13); 

479 plot (tmp,tma,’LineWidth’,2); hold on; plot (tmp,tmb) ; 

480 axis square; axis([0,1,0,N]); xlabel(’p’,’FontSize’ ,15) ; 
481 ylabel Size of the largest cluster’ ,’FontSize’ ,15); 

482 , plot area 

483 clf; hold on; 

484 for i=1:cn, 

485 tmp=[]; tma=c{i,2}; 


486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
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for j=i:cfi,1}, 
tmp=[tmp;v(tma(j),:)]; 

end 

tmp=(tmp;tmp(1,:)]; plot (tmp(:,1),tmp(:,2)); 
end 
plot ({[L,R,R,L,L],[B,B,T,T,B]); tma=B-(T-B) /20; 
plot ({L, (L+1lmp)], [tma,tma] ,’LineWidth’ ,1.5); 
tmb=strcat (num2str(lrl),’ metres’); text ((L+lmptabs(tma/2)) ,tma,tmb) ; 
axis equal; axis off; twm=strcat(twn,’ (fire control area)’); 
title (tw, ’FontSize’ ,15); 


§ A.28 Volume, surface area, cell- and face perimeters 


aAaNaahwNnNr 


4 vareac.m, vareab.m transformed, (c) Kit Tiyapan, 8th December 2002 
clear all; rand(’state’,sum(100*clock)); cnm=100; cell=rand(cnm,3) ; 
[vtc,tmp]=voronoin(cell); vtc(1,:)=[9,9,9]; vtc=-.5+vtc; vtcn=size(vtc,1); vca=[]; 
for i=1:cnn, 
vea{i,2}=tmp{i}; vcaf{i,1}=size(tmp{i}, 2); 
end 
vfrm=ones (1,vtcn) ; 
for i=1:vtcn, 
if (max(abs(vtc(i,:))) > 0.5) 
vfrm(i)=0; 
end 
end 
frm =ones(cnm, 1); 
for i=1:cnn, 
tmp=1; 
for j=1:vcafi,1}, 
tma=vca{i,2}(j); 
if (~vfrm(tma) ) 
tmp=0; 
end 
end 
if (~tmp) 
frm(i)=0; 
end 
end 
ve=[]; cnt=0; 
for i=1:cnn, 
if (frm(i)) 
ent=cntti; vc{cnt,2}=vca{i,2}; ve{cnt,i}=vcaf{i,1}; vcaf{i,3}=cnt; 
else 
vea{i,3}=0; 
end 
end 
cn=size(vc,1); 
% cell volume 
tmh=[]; tmk=[]; tmu=0; 
for xpx=1:-.1:.1, 
tmu=tmuti; tmv=0; tmk=[]; 
for ypx=1:-.1:.1, 
tmz=[xpx*vtc(:,1) ,ypx*vtc(:,2),vtc(:,3)]; tmv=tmvti; tms=[]; 
for i=1:cn, 
tmw=0; tmp=([]; 
for j=i:vc{i,i}, 
tmp=([tmp;tmz(vc{i,2}(j),:)]1; 
end 
tmd=delaunayn(tmp); tmn=size(tmd,1); 
for j=1:tmn, 


tmg=[]; 
for k=1:4, 
tma=tmp (tmd(j,k),:); tmq=[tmq;tma] ; 
end 
tmw=tmwt (abs (det ([tmq,ones(4,1)])))/6; 
end 
veli,3}=tmw; tms=[tms,tmw]; 
end 
tmk=([tmk,ypx]; vmn(tmu,tmv)=mean(tms); vsd(tmu,tmv)=std(tms) ; 
end 
tmh=[tmh, xpx] ; 


end 
vmn=vmn/vmn(1,1); vsd=vsd/vsd(1,1); 
[tmc ,tmd]=contour (tmh, tmk, vmn, 10) ; 
[tmc,tmd]=contour(tmh,tmk,vsd,10); 
% surface area 
tmh=[]; tmk=[]; tmu=0; 
for xpx=1:-.1:.1, 

tmu=tmuti; tmv=0; tmk=[]; 

for ypx=1:-.1:.1, 
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68 tmz=[xpx*vtc(: ,1) ,ypx*vtc(:,2) ,vtc(:,3)]; tmv=tmvti; tmi=[]; 
69 for i=1:cn, 

70 tmp=(] ; 

71 for j=i:vc{i,1i}, 

72 tmp=[tmp; tmz (vc{i, 2} (j),:)]; 

73 end 

74 tmq=convhulln(tmp); tmn=size(tmq,1); tmr=0; 

75 for j=1:tm, 

76 tmx=(]; 

77 for k=1:3, 

78 tmx= [tmx; tmp (tmq(j,k) ,:)]; 

79 end 

80 tma=sum((tmx(1,:)-tmx(2,:)).72).70.5; tmb=sum((tmx(1,:)-tmx(3,:)).72).70.5; 
81 tmc=sum((tmx(2,:)-tmx(3,:)).72).70.5; tms=(tmat+tmbttmc) /2; 
82 tmr=tmrtsqrt (tms* (tms-—tma) * (tms-tmb) * (tms-tmc) ) ; 

83 end 

84 ve{i,5}=tmr; tmi=[tmi,tmr]; 

85 end 

86 tmk=[tmk, ypx]; mnm(tmu,tmv)=mean(tmi); sdm(tmu,tmv)=std(tmi) ; 
87 end 

88  tmh=[tmh,xpx]; 

89 end 


90 mnm=mnm/mnm(1,1); sdm=sdm/sdm(1,1); 
91 (tmc,tmd]=contour(tmh,tmk,mnm, 10); 
92 [tmc,tmd]=contour(tmh,tmk,sdm, 10) ; 
93 % perimeter 

94 tmx=[]; tmu=0; 

95 for xpx=1:-.1:.1, 

96 tmu=tmuti; tmv=0; tmy=(1; 

97 for ypx=1:-.1:.1 


98 tmV=[xpx*vtc(:,1) ,ypx*vtc(: ,2),vtc(:,3)]; tmv=tmvtl; 
99 tmj=[]; tmw=[]; tmo=ones (3,1); 

100 for i=i:cn, 

101 tmp=[]; 

102 for j=i:vc{i,1}, 

103 tma=tmV(vc{i,2}(j),:); tmb=vc{i,2}(j); tmp=[tmp;tma,tmb] ; 
104 end 

105 tmh=convhulln(tmp(: ,1:3)); tmn=size(tmh,1); tmk=[]; 
106 for j=1:tm, 

107 tmq=[] ; 

108 for k=1:3, 

109 tma=tmp (tmh(j,k),1:3); tmq=[tmq;tma] ; 

110 end 

111 tma=det ([tmo,tmq(: ,2) ,tmq(: ,3)]); tmb=det([tmq(:,1) ,tmo,tmq(: ,3)]); 
112 tmc=det ([tmq(:,1),tmq(:,2),tmo]); tmd=det (tmq) ; 
113 tmk=[tmk;tma/tmd, tmb/tmd,tmc/tmd] ; 

114 end 

115 tml=ones(tmn); tmg=[]; cnt=0; 

116 for j=1:(tmn-1), 

117 if (tml (j)) 

118 cnt=cnt+1; tmg{cnt,2}=j; 

119 for k=(j+1):tm, 

120 if (tml (k)) 

121 tmd=abs (tmk(j,:)-tmk(k,:)); tme=1e-6; 

122 if ((tmd(1)<tme) & (tmd(2)) & (tmd(3))) 

123 tmg{cnt,2}=[tmg{cnt,2},k]; tml (k)=0; 

124 end 

125 end 

126 end 

127 end 

128 end 

129 tmn=size(tmg,1); 

130 for j=1:tmn, 

131 tmg{j,1}=size (tmg{j,2}); 

132 end 

133 tmf=(]; 

134 for j=1:tmn, 

135 tma=sparse(vtcn,vtcn) ; 

136 tmz=[]; 

137 for k=1:tmg{j,1}, 

138 tmb=[] ; 

139 for 1=1:3, 

140 tmi=tmh (tmg{j,2}(k),1); tmc=tmp(tmi,4); tmb=[tmb,tmc] ; 
141 end 

142 tmb=sort(tmb); tma(tmb(1) ,tmb(2))=tma(tmb(1) ,tmb(2))+1; 
143 tma (tmb (1) ,tmb (3) )=tma(tmb(1) , tmb (3) ) +1; 

144 tma(tmb (2) ,tmb (3) ) =tma(tmb(2) ,tmb(3))+1; 

145 end 

146 [tmb,tmc,tmd]=find(tma); tmm=max(size(tmb)); 

147 for k=1:tmn, 

148 if (7 (1-tmd (k) )) 


149 tmz=(tmz;tmb(k) ,tmc(k)]; 
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150 end 

151 end 

152 tmm=size (tmz) ; 

153 tmt=0; 

154 for k=1:tm, 

155 tmq=tmV (tmz (k,1),:); tmr=tmV(tmz(k,2),:); 

156 tms=sum((tmq-tmr).*2).70.5; tmt=tmt+tms; 

157 end 

158 tmf=([tmf ,tmt]; 

159 end 

160 tma=sum(tmf)/2; tmb=mean(tmf); vc{i,4}=tma; vc{i,é6}=tmb; tmj=[tmj,tma]; tmw=([tmw,tmb] ; 
161 end 

162 tmy=([tmy,ypx]; prm(tmu,tmv)=mean(tmj); prs(tmu,tmv)=std(tmj) ; 
163 pfm(tmu, tmv) =mean (tmw) ; ple (ema: env) ned Coa) 

164 end 

165 tmx=([tmx,xpx]; 

166 end 

167 prm=prm/prm(1,1); prs=prs/prs(1,1); 

168 Ane tudl=coneoaecans tmy soni 10) 

169 [tmc,tmd]=contour(tmx,tmy,prs,5) ; 

170 [tmc,tmd]=contour (tmx, tmy, pfm, 10) ; 

171 [tmc,tmd]=contour (tmx, tmy, pfs, 6) ; 

172 % area of face 

173 tmx=[]; tmu=0; 

174 for XCompression=1:-.1:.1, 

175 tmu=tmuti; tmv=0; tmy=(1; 

176 for YCompression=1:-.1:.1, 

177 tmV=[XCompression*Vertices(:,1) ,YCompression*Vertices(: ,2) ,Vertices(:,3)]; 
178 tmv=tmvti; tmo=ones(3,1); afm=[]; afs=0; 

179 for i=1:cn, 

180 tmp=[]; 

181 for j=i:vc{i,1i}, 

182 tma=tmV(vc{i,2}(j),:); tmb=vc{i,2}(j); tmp=[tmp;tma,tmb] ; 
183 end 

184 tmh=convhulln(tmp(: ,1:3)); tmm=size(tmh,1); tmk=(]; 

185 for j=1:tm, 

186 tmq=[] ; 

187 for k=1:3, 

188 tma=tmp (tmh(j,k) ,1:3); tmq=[tmq;tma] ; 

189 end 

190 tma=det ([tmo,tmq(: ,2) ,tmq(: ,3)]); tmb=det([tmq(:,1) ,tmo,tmq(: ,3)]); 
191 tmc=det ([tmq(:,1) ,tmq(: ,2),tmo]); tmd=det(tmq); tmk=[tmk;tma/tmd,tmb/tmd,tmc/tmd] ; 
192 end 

193 tml=ones(tmn); tmg=[]; cnt=0; 

194 for j=1:(tmn-1), 

195 if (tml (j)) 

196 cnt=cnt+1; tmg{cnt,2}=j; 

197 for k=(j+1):tm, 

198 if (tml (k)) 

199 tmd=abs (tmk(j,:)-tmk(k,:)); tme=1e-6; 

200 if ((tmd(1)<tme) & (tmd(2)) & (tmd(3))) 

201 tmg{cnt ,2}=[tmg{cnt,2},k]; tml (k)=0; 

202 end 

203 end 

204 end 

205 end 

206 end 

207 tmn=size(tmg,1); 

208 for j=1i:tm, 

209 tmg{j,1}=size (tmg{j,2}); 

210 end 

211 tmb=[] ; 

212 for j=1:tmn, 

218 tma=0; 

214 for k=1:tmg{j,1}, 

215 tmc=[]; 

216 for 1=1:3, 

217 tmi=tmh (tmg{j,2}(k),1); tmd=tmp(tmi,1:3); tmc=[tmc;tmd] ; 
218 end 

219 tmd=sum((tmc(1,:)-tmc(2,:)).72).70.5; tme=sum((tmc(1,:)-tmc(3,:)).72).70.5; 
220 tmf=sum((tmc(2,:)-tmc(3,:)).72).70.5; tms=(tmd+tmettmf) /2; 
221 tmj=sqrt (tms* (tms-tmd) * (tms-tme) *(tms-tmf)); tma=tmattmj; 
222 end 

223 tmb=[tmb, tma] ; 

224 end 

225 tma=mean(tmb); tmc=std(tmb); afm=[afm,tma]; afs=[afs,tmc]; 

226 end 

227 afmm(tmu,tmv)=mean(afm) ; afms(tmu,tmv)=std(afm); afsm(tmu,tmv)=mean(afs) ; 
228 afss(tmu,tmv)=std(afs); tmy=[tmy,YCompression] ; 

229 end 


230 tmx= [tmx , XCompression] ; 
231 end 
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232 afmmn=afmm/afmm(1,1); afmsn=afms/afms(1,1); afsmn=afsm/afsm(1,1); afssn=afss/afss(1,1); 
233 [tmc,tmd]=contour (tmx, tmy,afmmn,10) ; 
234 [tmc,tmd]=contour (tmx, tmy,afmsn,10) ; 
235 [tmc,tmd]=contour(tmx,tmy,afsmn,10) ; 
236 [tmc,tmd]=contour (tmx, tmy,afssn,10) ; 


1% varea.m by Kittisak N. Tiyapan, 26th April, 2001 

2 echo off; clear all; format short g; more off; 

3 path(path,’/home/mjkvjkt/vn’) ; 

4 for xcp=1:-.1:.1, 

5 for ycp=1:-.1:.1, 

6 pti =fopen(’/home/mjkvjkt/vn/vertices.dat’,’r’); 

7 sc1 =fscanf(pti, ’%d’, 4); dim =sc1(1,1); vnum =sc1(2,1); 
8 cnum =sc1(3,1); sc2 =fscanf(pti, ’“%f’, [dim, vnum]); 


9 vtc =sc2’; voc =sparse(cnum, vnum); frm =ones(cnum, 1); vfrm=ones(vnum,1) ; 
10 for i=1:cnun, 

11 sci =fscanf(pti, ’4d’, 1); 

12 for j=i1:sci, 

13 sc2 =fscanf(pti, ’4d’, 1); Num =sc2+1; voc(i,Num) =1; 

14 if ( max(abs(vtc(Num, :))) > 0.5 ) 

15 frm(i,1) =0; vfrm(Num,1i)=0; 

16 end 

17 end 

18 end 

19 vtc =([xcptones(vnum,1),ycptones(vnum,1) ,ones(vnum,1i)]).*vtc; 

20 fcnm =sum(frm); vpc =full(sum(voc, 2)); [a,b,vpcn] =find(vpc.*frm) ; 

21 vnm =sparse(cnum, cnum); fnm =sparse(cnum, cnum); 

22 for i=1:(cnum-1), 

23 for j=(it1):cnun, 

24 nmsh =sum(and(voc(i,:), voc(j,:)), 2); 

25 if (mmsh >= 3) 

26 fnm(i,j) =1; fnm(j,i) =1; 

27 end 

28 if (mmsh >= 1) 

29 vnm(i,j) =1; vnm(j,i) =1; 

30 end 

31 end 

32 end 

33 vnpc =full(sum(vnm,2)); [a,b,vncn] =find(vnpc.*frm); fnpc =full(sum(fnm,2)) ; 
34 [a,b,fncn] =find(fnpc.*frm); [clof, clof] =find(fnm); cofn =size(clof,1); 
35 fn =cofn/2; vof =sparse(fn, vnum); ffrm =zeros(fn,1); xcof =zeros(fn,1); fcnt =0; 
36 for i=1:cofn, 

37 if (clof(i,1) < clof(i,1)) 

38 fcent =fcntti; vof(fcnt,:) =and( voc(clof(i,1),:), voc(clof(i,1),:) ); 
39 xcof (fcnt,1) =i; 

40 if (frm(clof(i,1),1)==1 | frm(clof(i,1) ,1)==1) 

41 ffrm(fcnt,1)=1; 

42 end 

43 end 

44 end 

45 vpf=sum(vof,2); [a,b,vfin]=find(vpf.+*ffrm); fcmx =max(fnpc) ; 

46 odvf =sparse(fcnt,fcmx); fdfm =find(frm); vofn=[]; 

47 aoc =sparse(cnum,cnum); aof =sparse(fcnt,1); fppr =; 

48 for i=1:fcnt, 

49 vthf =find(vof(i,:)); vthfn =size(vthf,2); vofn=[vofn;vthfn]; vdthf =[]; 
50 for j=1:vthfn, 

51 vdthf =[vdthf; [vtc(vthf(1,j),:),vthf(1,j)]1]; 

52 end 

53 vspn =size(vdthf ,1); 

54 if (vdthf(1,1)<-10 | vspn==3) 

55 odvc =vdthf; 

56 else 

57 Xi=vdthf(1,1); X2=vdthf (2,1); X3=vdthf(3,1); Yi=vdthf(1,2); 

58 Y2=vdthf (2,2); Y3=vdthf (3,2); Zi=vdthf(1,3); Z2=vdthf(2,3); Z3=vdthf (3,3); 
59 A=det ([1,Y1,21;1,Y2,2Z2;1,Y3,Z3]); B=det((X1,1,21;X2,1,22;X3,1,23]); 

60 C=det ((X1,Y1,1;X2,Y2,1;X3,Y3,1]); D= -det([K1,Y1,21;X2,Y2,2Z2;X3,Y3,2Z3]); 
61 FarX=10; FarY=10; FarZ= (-A*FarX-B+*FarY-D) /C; 

62 dXi=Xi-FarX; dYi=Yi-FarY; dZ1=Zi-FarZ; Vi=([dXi;dY1;dZ1]; 

63 Di=sqrt (dX1*dX1+dYi+*dY1+dZ1*dZ1); dist=([D1]; gMax=0; 

64 JgMax=0; VJs=[dX1;dY1;dz1]; 

65 for j=2:vspn, 

66 dXj=vdthf(j,1)-FarX; dYj=vdthf(j,2)-FarY; dZj=vdthf(j,3)-FarZ; 

67 Vj=[dXj;d¥j;dZj]; VJs=[VJs,Vj]; dist=[dist;sqrt (dXj*dXj+dYj*dYj+dZj*dZj)]; 
68 Dj=dist(j,1); gJ=acos((dot(V1,Vj))/(D1*Dj)); 

69 if (gJ>gMax) 

70 JgMax=j; gMax=gJ; 

71 end 

72 end 

73 g=[]; gOppPt=0; jgop=0; Vr=VJs(: , JgMax) ; 

74 for j=l:vspn, 

75 Vj=VJs(:,j); Dj=dist(j,1); Dr=dist (JgMax,1); 


76 gJ=acos((dot (Vj,Vr))/(Dr+#Dj)); g=[g;gJ]; 
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if (gJ>gOppPt) 
jgop=j; g0ppPt=gJ; 
en 
end 


ddagl=zeros(vspn, 1) ; 
for j=1:vspn, 
if (j==JgMax | j==jgop) 
ddag](j,1)=dist(j,1); 
else 
gRatio=g(j,1)/gOppPt; Xr=vdthf(JgMax,1); Yr=vdthf (JgMax, 2) ; 
Zr=vdthf (JgMax, 3) XOpp= vdthf (jgop, 1); YOpp= vdthf (jgop, 2); 
ZOpp=vdthf (jgop, 3); Xdl= =Kr+gRat io* (XOpp- Xr); Ydl= =Yr+gRatio*(YOpp-Yr) ; 
Zd1= =Zr+gRat io* (ZOpp- Zr); dXdl=Xd1-FarX; dYd1= Ydl-FarY; dZd1=Zd1-FarZ; 
ddagl(j, 1)= sqrt (dXd1+*dXd1+dYdl*dYdl+dZdl*dzd1) ; 
end 
end 
bcki=[]; bck2=[]; 
for j=i:vspn, 
if (dist (j,1)>ddagl(j,1)) 
bek1=[bck1; [vatht ,:),8(, 1]1; 
elseif (dist (j ,1)<ddagl(j, 1)) 
bck2=[bck2; dent Go ee 11]; 
end 
end 
if (~isempty (bck1)) 
sdbck=sortrows (bck1,5); odvc=[vdthf (JgMax, :) ;sdbck(: ,1:4) ; vdthf (jgop,:)]; 
else 
odvc=[vdthf (JgMax,:) ; vdthf(jgop,:)1]; 
end 
if (~isempty (bck2) ) 
sdbck=sortrows (bck2,5) ; 
for j=size(sdbck,1):-1:1, 
odvc=[odvc;sdbck(j,1:4)]; 
end 
end 
end 
odvdthf=odvc; odVnl =odvdthf(:,4); odvf(i,1i:vthfn) =odVnl’; 
odVcd=odvdthf (:,1:3); vthfn =size(odVcd,1); stp =floor(vthfn/3) ; 
ndpt =1t+stp; rdpt =1+2*stp; 
nvec cross ((odVcd(ndpt, :)-odVcd(1,:)) , (odVcd(rdpt,:)-odVcd(1,:))); 
clstv =[odVcd; odVcd(1, 51; Xsq =nvec(1,1)#nvec(1,1); Ysq =nvec(1,2)*nvec(1,2); 
Zsq =nvec(1,3)#nvec(1, 3); nvecn =sqrt(XsqtYsqtZsq); nizednV =nvec/nvecn; xps =0; 
for j=1:vthfn, 
xps =xpstcross(clstv(j,:),clstv((j+1),:)); 
end 
fra =(abs(dot(nizednV, xps)))/2; nvc =ones(3,1); cdmtx =[odVcd(1,:); odVcd(ndpt,:); 
odVcd(rdpt,:)]; Aprm =det([nvc, cdmtx(:,2), cdmtx(:,3)]); 
Bprm =det([cdmtx(:,1), nvc, cdmtx(:,3)]); =det ([cdmtx(:,1), cdmtx(:,2), nvc]); 
Dprm =det ([cdmtx(:,1), cdmtx(:,2), cdmtx (: Ds pprm=[Aprm, Bprm, Cprm, Dprm] ; 
athf=fra; aof(i,1) =athf; fppr =[fppr; pprml ; 
aoc(clof (xcof (i) ,1) ,clof (xcof (i) ,1))=athf; aoc(clof (xcof (i) ,1), ciof (xcof (i) ,1))=athf; 
end 
facn=aof.*ffrm; [fn,b,afn]=fnd(facn); mafn=mean(afn); mnafn=afn/mafn; 
[a,b,sacin]=fnd (frm.*sum(aoc,2)); msacin=mean(sacin); mnsacin=sacin/msacin; 
aera =zeros(cnum,4); [cVect,VerticeVect] =fnd(voc); CVPairsAmount =size(cVect) ; 
mdc =[]; 
for i=1:CVPairsAmount , 
cdsAndN (cVect (i) ,:)=[EcdsAndN(cVect (i) ,1:3)+vtc(cVect (i) ,:) ,cdsAndN (cVect (i) ,4)+1]; 
end 
for i=1:cnun, 
mdc=[mdoc; [cdsAndN(i,1) ,cdsAndN(i,2) ,cdsAndN(i,3)]/cdsAndN(i,4)]; 
end 
Vc =zeros(cnum, 1); 
for i=1:fcnt, 
if (ffrm(i,1)==1) 
A =fppr(i,1); B =fppr(i,2); C =fppr(i,3); D =fppr(i,4); 
Denom =sqrt (A¥A+B*B+C*C) ; cl =clof(xcof (i) ,1); 
if (frm(c1,1)==1) 
Xpi =mdc(c1,1); Ypi =mdc(c1,2); Zp1 =mdc(ci,3); 
Hi =(A*Xpi+B+Yp1+C*Zpi+D) /Denom; V1 =abs((aof(i,1)*H1)/3); Vce(c1) =Vc(c1)+V1; 
end 
c2 =clof (xcof (i) ,1); 
if (frm(c2,1)==1) 
Xp2 =mdc(c2,1); Yp2 =mdc(c2,2); Zp2 =mdc(c2,3); 
H2 =(A*Xp2+B+*Yp2+C*Zp2+D) /Denom; V2 =abs((aof (i,1)*H2)/3); Vc(c2) =Vc(c2)+V2; 
end 
end 
end 
sVc =sum(Vc,2); Vct=sum(sVc); Vcecb=Vct/fcnm; sdccb=Vccb.~ (1/3); 
sdaccb=sdccb*sdccb; saccb=sdaccb*6; Facepccb=sdccb*4; cpccb=sdccb*12; 
[a,b,sVcin] =fnd(sVc.*frm); msVcin=mean(sVcin); mnVcin=sVcin/msVcin; 
cbnVcin=sVcin/Vccb; cbnafn=afn/sdaccb; cbnsacin=sacin/saccb; 
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159 xthc=[]; Emtx=sparse(vnum,vnum); Elmtx=sparse(vnum, vnum) ; 

160 pFace=sparse(fcnt,1); poc=sparse(cnum,1) ; 

161 4figure(1); clf; hold on; 

162 for i=1:fcnn, 

163 thc=fdfm(i,1); 

164 for j=1:cofn, 

165 if (clof(j,1)==the | clof(j,1)==thc) 

166 xthc=[xthe;j]; 

167 end 

168 end 

169 Sizexthc=size(xthc,1); 

170 Fthc=(]; 

171 for j=1:Sizexthc, 

172 for k=1:fcnt, 

173 if (xthe (j ,1) ==xcof (k,1)) 

174 Fthc=[Fthc;k]; 

175 end 

176 end 

177 end 

178 fthcn=size(Fthc,1); twospthc=0; 

179 for j=1:fthcn, 

180 vistn=vofn(Fthc(j,1),1); VList=odvf (Fthc(j,1),1:vlstn) ; 

181 X=; Y=O; z=(1; 

182 for k=1:vlstn, 

183 X=, vtc(VList (1,k) ,1)]; Y=(Y,vtc(VList (1,k) ,2)]; Z=[Z,vtc(VList (i,k) ,3)]; 
184 end 

185 X=(K,X(1,1)]; Y=[Y,¥(1,1)]; 2=[Z,Z(1,1)]; cvlst=[VList, VList(: ,1)]; 

186 plot3(X,Y,Z,’LineWidth’ ,1.7); pthFace=0; 

187 for k=1:vlstn, 

188 if (Emtx(cvlst(1,k) ,cvlst(1, (k+1)))==0) 

189 Emtx(cvlst (1,k) ,cvlst (1, (k+1)))=1; Emtx(cvlst(1, (k+1)) ,cvlst (1,k))=1; 
190 AX=X(1, (k+1))-X(1,k); d¥=¥(1, (k+1))-¥(1,k); dZ=Z(1, (k+1))-2(1,k) ; 

191 disp=sqrt (dX*dX+dY+dY+dZ*dZ) ; 

192 Elmtx(cvlst (1,k) ,cvlst (1, (k+1)))=disp; Elmtx(cvlst (1, (k+1)) ,cvlst(1,k))=disp; 
193 end 

194 pthFace=pthFace+Elmtx(cvlst(1,k) ,cvlst(1, (kt1))); 

195 end 

196 pFace(Fthc(j,1),1)=pthFace; twospthc=twospthct+pthFace; 

197 end 

198 poc(thc,1)=twospthc/2; 

199 end 

200 [a,b,pfin]=find(pFace); mpfin=mean(pfin); mnpfin=pfin/mpfin; cbnpfin=pfin/Facepccb; 
201 [a,b,pcin]=find(poc); mpcin=mean(pcin); mnpcin=pcin/mpcin; cbnpcin=pcin/cpccb; 
202 eehee rl: thce=14; 

203 for i=1:cofn, 

204 if (clof (i,1)==the | clof(i,1)==thce) 

205 xthc=[xthc;i]; 

206 end 

207 end 

208 Sizexthc=size(xthc,1); Fthc=); 

209 for i=1:Sizexthc, 

210 for j=1:fcnt, 

211 if (xthe (i, 1) ==xcof(j,1)) 

212 Fthc=[Fthc;j]; 

213 end 

214 end 

O15 end 

216 NumFthc=size(Fthc,1); 

217 for i=1:NumFthc, 

218 vistn=vofn(Fthc(i,1),1); VList=odvf(Fthce(i,1),1:vlstn); x=0); Y=0); z=0; 
219 for j=i:vlstn, 

220 X=1K,vtc(VList (1,4) ,1)]; Y=[Y,vtc(VList (1,j),2)]; Z=[Z,vtc(VList (1, j) ,3)]; 
221 end 

222 K=[X,X(1,1)]; Y=(Y,Y¥(1,1)]; 2=[Z,2(1,1)]; £1113(%,Y,Z,i); 

225 end 

224 box on; axis equal; view(-20,10); title(’A Voronoi c with six others’ ,’FontSize’ ,12); 
225 xlabel(’x’,’FontSize’,11); ylabel(’y’,’FontSize’,11); zlabel(’z’,’FontSize’ ,11); 
226 Numfin=sum(ffrm, 1); 

227 end; 

228 end; 


§ A.29 Volume in higher dimensions 


4 volnd.m, higher-d volumes, (c) Kit Tiyapan, 9th December 2002 
clear all; rand(’state’,sum(100*clock)); cna=500; 
dim=5; c=rand(cna,dim); [v,tmp]=voronoin(c); vn=size(v,1); 
for i=1:cna, 
vea{i,2}=tmp{i}; vcaf{i,1}=size(tmpf{i}, 2); 
end 
vin=sparse(1,vn) ; 


NOohwn 
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for i=1:vn, 
if ((max(v(i,:))<1) & (min(v(i,:))>0)) 
vin(i)=1; 
end 
end 
cin=sparse(1,cna) ; 
for i=1:cna, 
tmn=1; 
for j=1:vcafi,1}, 
tma=vin(vca{i,2}(j)); 
if (~tma) 
tmn=0; 
end 
end 
if (tmn) 
cin(i)=1; 
end 
end 
tmv=([]; tmz=[]; 
tmm=factorial (dim) ; 
for i=1:cna, 
if (cin(i)) 
tmp=[]; 
for j=1:vcafi,1}, 
tma=v(vca{i,2}(j),:); tmp=[tmp;tma]; 
end 
tmd=delaunayn(tmp); tmn=size(tmd,1); tms=0; 
for j=1:tmn, 
tmq=(] ;sx 
for k=1: (dimt1), 
tma=tmp(tmd(j,k),:); tmq=[tmq;tma] ; 
end 
tmq=([tmq, ones((dim+1) ,1)]; tma=abs (det (tmq))/tmm; tms=tms+tma; 
end 
tmv=(tmv,tms]; tma=max(tmp,[],1); tmb=min(tmp,[],1); 
tmc=prod(tma-tmb); tmz=[tmz,tmc] ; 
end 
end 
tma=tmv./tmz; tmm=sum(vin); tmn=sum(cin); vrm=mean(tma); vrs=std(tma) ; 
% test volume formula 
clear all; dim=7; d=3; tmp=[0,d]’; 
for i=2:dim, 
tmp=[[zeros (27 (i-1) ,1) ;d*ones (27 (i-1) ,1)], [tmp;tmp]]; 
end 
v=tmp; tmd=delaunayn(v); tmn=size(tmd,1); tms=0; tmm=1; 
for i=2:dim, 
tmm=tmm*i ; 
end 
for i=1:tmn, 
tmp=[]; 
for j=1:(dimt1), 
tma=v(tmd(i,j),:); tmp=[tmp;tma] ; 
end 
tmc=[tmp,ones((dim+i),1)]; tma=abs(det(tmc))/tmm; tms=tms+tma; 
end 


§ A.30 Regular lattices in three dimensions 


ANaahwNnNre 


© 


4 trr.m, regular 3-d tesselation, (c) Kit Tiyapan, 16 December 2002 
qn=size(q,1); in2n=size(in2,1); in3n=size(in3,1); in5n=size(in5,1); 
p=(]; p{1,1}=[0;0]’; pf{1,2}=sz; r=; s=01; t=O; 
for i=1:sz, 
r(1,i)=dx(m(i)); s(1,i)=dy(n(i)); t(1,1)=dz(z(i)); 
end 
p{i,3}=r’; p{1,4}=s’; p{1,5}=t’; iin=size(ii,1); tmp=ones(iin,1) ; 
tma=sparse(tmp,ii(:,1),tmp,1,sz); tmp=[]; tmb=[]; tmc=[]; tmd=[]; cnt=0; 
for i=1:sz, 
if (~tma(i)) 
cnt=cnt+1; tmp=(tmp;i,cnt]; tmb=[tmb;r(i)]; tmc=[tmc;s(i)]; tmd=[tmd;t(i)]; 
end 
end 
p{2,1i}=tmp; p{2,2}=cnt; p{2,3}=tmb; p{2,4}=tmc; p{2,5}=tmd; iiin=size(iii,1); 
tmp=ones(iiin,1); tma=sparse(tmp,iii(:,1),tmp,1,sz); 
tmp=[]; tmb=[]; tmc=[]; tmd=[]; cnt=0; 
for i=1:sz, 
if (~tma(i)) 
cnt=cnt+1; tmp=([tmp;i,cnt]; tmb=[tmb;r(i)]; tmc=[tmc;s(i)]; tmd=[tmd;t(i)]; 
end 
end 


p{3,1}=tmp; p{3,2}=cnt; p{3,3}=tmb; p{3,4}=tmc; p{3,5}=tmd; iv=[ii,2*ones(iin,1)]; 
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for i=1:iiin, 
tmp=0; 
for j=1:iin, 
if(- 4iiG,1)-iiGj,1))) 
tmp=1; 
end 
end 
if (~tmp) 
iv=Liv;iii(i,:),3]; 
end 
end 
ivn=size(iv,1); tmp=ones(ivn,1); tma=sparse(tmp,iv(:,1),tmp,1,sz) ; 
tmp=[]; tmb=[]; tmc=[]; tmd=[]; cnt=0; 
for i=1:sz, 
if (~tma(i)) 
cnt=cnt+1; tmp=([tmp;i,cnt]; tmb=[tmb;r(i)]; tmc=[tmc;s(i)]; tmd=[tmd;t(i)]; 
end 
end 
p{4,it=tmp; p{4,2}=cnt; p{4,3}=tmb; p{4,4}=tmc; 
p{4,5}=tmd; vn=size(v,1); tmp=ones(vn,1); 
tma=sparse(tmp,v(:,1),tmp,1,sz); tmp=[]; tmb=[]; tmc=[]; tmd=[]; cnt=0; 
for i=1:sz, 
if (~tma(i)) 
cnt=cnt+1; tmp=([tmp;i,cnt]; tmb=[tmb;r(i)]; tmc=[tmc;s(i)]; tmd=[tmd;t(i)]; 
end 
end 
p{5,1i}=tmp; p{5,2}=cnt; p{5,3}=tmb; p{5,4}=tmc; p{5,5}=tmd; vi=[ii,2*ones(iin,1)]; 
for i=1:vn, 
tmp=0; 
for j=1:iin, 
if(7 (vi, 1) -4i Gj ,1))) 
tmp=1; 
end 
end 
if (~tmp) 
vi=[vi;v(i,:) ,5]; 
end 
end 
vin=size(vi,1); tmp=ones(vin,1); tma=sparse(tmp,vi(:,1),tmp,1,sz); 
tmp=[]; tmb=[]; tmc=[]; tmd=[]; cnt=0; 
for i=1:sz, 
if (~tma(i)) 
cnt=cnt+1; tmp=([tmp;i,cnt]; tmb=[tmb;r(i)]; tmc=[tmc;s(i)]; tmd=[tmd;t(i)]; 
end 
end 
p{6,i}=tmp; p{6,2}=cnt; p{6,3}=tmb; p{6,4}=tmc; p{6,5}=tmd; vii=[iii,3*ones(iiin,1)]; 
for i=1:vn, 
tmp=0; 
for j=1:iiin, 
if(*(wGi,1)-iii(j,1))) 
tmp=1; 
end 
end 
if (~tmp) 
wisi sels 
end 
end 
viin=size(vii,1); tmp=ones(viin,1); tma=sparse(tmp,vii(:,1),tmp,1,sz); 
tmp=[]; tmb=[]; tmc=[]; tmd=[]; cnt=0; 
for i=1:sz, 
if (~tma(i)) 
cnt=cnt+1; tmp=[tmp;i,cnt]; tmb=[tmb;r(i)]; tmc=[tmc;s(i)]; tmd=[tmd;t(i)]; 
end 
end 
p{7,i}=tmp; p{7,2}=cnt; p{7,3}=tmb; p{7,4}=tmc; p{7,5}=tmd; viii=iv; 
for i=1:vn, 
tmp=0; 
for j=1:ivn, 
if ( (wi, 1)-iv(j,1))) 
tmp=1; 
end 
end 
if (~tmp) 
viii=([viii;v(i,:),5]; 
end 
end 
viiin=size(viii,1); tmp=ones(viiin,1); tma=sparse(tmp,viii(:,1),tmp,1,sz); 
tmp=([]; tmb=[]; tmc=[]; tmd=[]; cnt=0; 
for i=1:sz, 
if (~tma(i)) 
cnt=cnt+1; tmp=[tmp;i,cnt]; tmb=[tmb;r(i)]; tmc=[tmc;s(i)]; tmd=[tmd;t(i)]; 
end 
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105 end 

106 p{8,1}=tmp; p{8,2}=cnt; p{8,3}=tmb; p{8,4}=tmc; p{8,5}=tmd; map=[]; tmp=ones(sz,1); 
107 map{1,1,1}=sparse(p{1,1}(:,1) ,tmp,p{1,1}(: ,2),sz,1); cnt=p{1,2}; e=q; 
108 V=[pli,a} pli.4}.pll.6hl; tmp=ones (p{2,2},1) ; 

109 for i=2:nx, 

110 = map{i,1,1}=sparse(p{2,1}(:,1) ,tmp,cnt*tmptp{2,1}(:,2) ,sz,1); 

111 for k=1:iin, 

112 map{i,1,1}(ii(k,1) ,1)=mapf{(i-1) ,1,1}(ii(k,2),1); 

113 end 

114 cnt=cnt+p{2,2}; % +iin; 

115 for k=1:qn, 


116 e=[e;map{i,1,1}(q(k,1)) ,map{i,1,1}(q(k,2))]; 

117 end 

118 for k=1:in2n, 

119 e=[e;map{i,1,1}(in2(k,1)) ,map{(i-1) ,1,1} (in2(k,2))]; 
120 end 

121 V=[V; (i-1) *dim1*tmptp{2,3},p{2,4},p{2,5}]; 

122 end 


123 tmp=ones (p{3,2},1); 

124 for j=2:ny, 

125 map{1,j,1}=sparse(p{3,1}(:,1) ,tmp,cnt*tmpt+p{3,1}(:,2) ,sz,1); 
126 for k=1:iiin, 

127 map{1, j,1}(iii(k,1),1)=map{1, (j-1) ,1} (4ii(k,2),1); 

128 end 

129 cnt=cnt+p{3,2}; % tiiin; 

130 for k=1:qn, 


131 e=[e;map{1,j,1}(q(k,1)) ,map{1,j,1}(q(k,2))]; 

132 end 

133 for k=1:in3n, 

134 e=[e;map{1,j,1}(in3(k,1)) ,map{1, (j-1) ,1} (in3(k,2))]; 
135 end 

136 V=[V; p{3,3}, (j-1) *dim2*tmptp{3, 4} ,p{3,5}]; 

137 end 


138 tmp=ones (p{4,2},1); 
139 for i=2:nx, 
140 for j=2:ny, 


141 map{i,j,i}=sparse(p{4,1}(:,1) ,tmp,cnt*tmptp{4,1}(:,2),sz,1); 
142 for k=1:ivn, 

143 if (iv(k,3)==2) 

144 map{i,j,1}(iv(k,1) ,1)=map{(i-1) ,j,1} (iv(k,2) ,1); 
145 else 

146 map{i,j,1}(iv(k,1) ,1)=map{i, (j-1) ,1} (iv(k, 2) ,1); 
147 end 

148 end 

149 cnt=cnt+p{4,2}; % tivn; 

150 for k=1:qn, 

151 e=[e;map{i,j,1}(q(k,1)) ,map{i,j,1}(q(k,2))]; 

152 end 

153 for k=1:in2n, 

154 e=[e;map{i,j,1}(in2(k,1)) ,map{(i-1) ,j,1} (in2(k,2))]; 
155 end 

156 for k=1:in3n, 

157 e=[e;map{i, j,1}(in3(k,1)) ,map{i, (j-1) ,1} (in3(k,2))]; 
158 end 

159 V=([V; (i-1) *dim1*tmp+p{4, 3}, (j-1) *dim2*tmptp{4,4} ,p{4,5}]; 
160 end 

161 end 


162 tmp=ones(p{5,2},1); 

163 for i=2:nz, 

164 map{i,i,i}=sparse(p{5,1}(:,1) ,tmp,cnt*tmptp{5,1}(:,2) ,sz,1); 
165 for k=1:vn, 

166 map{1,1,i}(v(k,1) ,1)=map{1,1, (i-1)}(v(k,2) ,1); 

167 end 

168 cnt=cnt+p{5,2}; 

169 for k=1:qn, 


170 e=[e;map{1,1,i}(q(k,1)) ,map{1,1,i}(q(k,2))]; 

171 end 

172 for k=1:indn, 

173 e=[e;map{1,1,i}(ind(k,1)) ,map{1,1, (i-1)} (ind(k,2))]; 
174 end 

175 V=[V; p{5,3},p{5,4}, (i-1) *dim3*tmptp{5,5}] ; 

176 end 


177 tmp=ones (p{6,2},1); 
178 for i=2:nx, 
179 for j=2:nz, 


180 map{i,1, j}=sparse (p{6,1}(:,1) ,tmp,cnt*tmptp{6,1}(:,2),sz,1); 
181 for k=1:vin, 

182 if (“vi (k,3)-2)) 

183 map{i,1,j}(vi(k,1) ,1)=map{(i-1) ,1,j} (vik, 2) ,1); 

184 else 

185 map{i,i, j}(vi(k,1) ,1)=map{i,1, (j-1)} (vi(k, 2) ,1); 


186 end 
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187 end 

188 cnt=cnt+p{6,2}; 

189 for k=1:qn, 

190 e=[e;map{i,1,j}(q(k,1)) ,map{i,1,j}(q(k,2))]; 

191 end 

192 for k=1:in2n, 

193 e=[e;map{i,1,j}(in2(k,1)) ,map{(i-1) ,1,j}(in2(k,2))]; 
194 end 

195 for k=1:indn, 

196 e=[e;map{i,1,j}(in5(k,1)) ,map{i,1, (j-1)} (in5(k,2))]; 
197 end 

198 V=([V; (i-1) #dimi+#tmp+p{6,3} ,p{6,4}, (j-1) *dim3*tmp+p{6,5}]; 
199 end 

200 end 


201 tmp=ones (p{7,2},1); 
202 for i=2:ny, 
203 for j=2:nz, 


204 map{1i,i, j}=sparse (p{7,1}(:,1) ,tmp,cnt*tmptp{7,1}(:,2),sz,1); 
205 for k=1:viin, 

206 if (~ (wii(k, 3)-3)) 

207 map{1,i,j}(vii(k,1),1)=map{1, (i-1) ,j} (vii(k,2) ,1); 
208 else 

209 map{1,i, j}(vii(k,1) ,1)=map{1,i, (j-1)} (wii(K,2) ,1); 
210 end 

211 end 

212 cnt=cnt+p{7,2}; 

213 for k=1:qn, 

214 e=[e;map{1,i, j}(q(k,1)) ,map{1,i, j}(q(k,2))]; 

215 end 

216 for k=1:in3n, 

217 e= [e;map{1,i, j}(in3(k,1)) smap{i, (i-1) > ji (in3(k,2) )] 3 
218 end 

219 for k=1:indn, 

220 e=[e;map{1,i, j}(ind(k,1)) smap{i,i, (j-1)} (ind (k, 2) )] 3 
221 end 

222 V=[V;p{7,3}, (i-1) *dim2*tmp+p{7 , 4}, (j-1) «dim3+*tmp+p{7 ,5}] ; 
223 end 

224 end 


225 tmp=ones (p{8,2},1); 
226 for i=2:nx, 
227 for j=2:ny, 


228 for k=2:nz, 

229 map{i,j,k}=sparse(p{8,1}(:,1) ,tmp,cnt*tmptp{8,1}(: ,2),sz,1); 
230 for m=1:viiin, 

231 if (~ (viii (m,3)-2)) 

232 map{i, j,k} (viii(m,1) ,1)=map{(i-1) ,j,k}(viii(m,2) ,1); 
233 elseif (~(viii(m,3)-3)) 

234 map{i,j,k}(viii(m,1) ,1)=map{i, (j-1) ,k} (viii(m,2) ,1); 
235 else 

236 map{i,j,k}(viii(m,1),1)=map{i, j, (k-1)} (viii(m,2) ,1); 
237 end 

238 end 

239 cnt=cnt+p{8, 2}; 

240 for m=1:qn, 

241 e=[e;map{i, j,k} (q(m,1)) ,map{i, j,k} (q(m,2))]; 

242 end 

243 for m=1:in2n, 

244 e=[e;map{i, j,k} (in2(m,1)) ,map{(i-1) ,j,k}(in2(m,2))]; 
245 end 

246 for m=1:in3n, 

247 e=[e;map{i, j,k} (in3(m,1)) ,map{i, (j-1) ,k} (in3(m,2))]; 
248 end 

249 for m=1:indn, 

250 e=[e;map{i, j,k} (in5(m,1)) ,map{i,j, (k-1)} (ind(m,2))]; 
251 end 

252 V=[V; (i-1) #dim1*tmp+p{8,3}, (j-1) *dim2*tmp+p{8,4}, (k-1) #dim3*tmptp{8,5}]; 
253 end 

254 end 

255 end 


256 en=size(e,1); Vn=size(V,1); 

257 figure(1); clf; hold on; 

258 for i=1:en, 

259 = plot 3([V(e(i, 1) ,1) ,V(e(i,2) ,1)], [V(e(i,1) ,2) ,V(e(i,2) ,2)1, [V(e(i, 1) ,3) ,V(e(i,2) ,3)1); 
260 end 

261 axis off; axis equal; 

262 clf; hold on; tms=sum(nemat,2); tmp=[]; tma=17.2; % 5x5x5 units 

263 for i=1:en, 

264 if (tms (i) <tma) 


265 tmp=L[tmp;e(i,:)]; 
266 end 
267 end 


268 tmn=size(tmp,1); 
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for i=1:tmn, 
plot3([V(tmp(i,1) ,1),V(tmp(i,2),1)],... 
[Vv (tmp(i,1),2) ,V(tmp(i,2) ,2)], [V(tmp(i,1) 3) ,V(tmp(i,2) ,3)]); 
end 
axis off; axis equal; 
4 for vertices 
nvmat=sparse(Vn, Vn) ; 
for i=1:en, 
nvmat (e(i,1),e(i,2))=1; nvmat(e(i,2),e(i,1))=1; 
end 
A=V; N=Vn; lmat=sparse(1,N); umat=sparse(1,N); LB=min(V(:,1)); UB=max(V(:,1)); 
rng=UB-LB; LBv=.05+*rng+LB; UBv=UB-LBv; 
for i=1:Vn, 
if (V(i, 1) <LBv) 
lmat (1,i)=1; 
end 
if (V(i,1) >UBv) 
umat (1,i)=1; 
end 
end 
nmat=nvmat; Blocked=randperm(Vn); [pc,cord,tsries]=perc(N,1mat,umat ,nmat) ; 
4 for edges 
evm=sparse (en, Vn) ; 
for i=1:en, 
evm(i,e(i,1))=1; evm(i,e(i,2))=1; 
end 
nemat=sparse(en,en) ; 
for i=1:Vn, 


tmp=find(evm(:,i)); tmn=size(tmp,1); 
for j=1:(tmn-1), 
for k=(j+1):tm, 
nemat (tmp(j) ,tmp(k))=1; nemat (tmp(k) ,tmp(j))=1; 
end 
end 
end 
A=e; N=en; lmat=sparse(1,N); umat=sparse(1,N) ; 
for i=1:N, 
if ((V(A(i,1),1)<=LBv) | (V(ACi,2) ,1)<=LBv)) 
lmat (1,i)=1; 
elseif ((V(A(i,1),1)>=UBv) | (VCACi,2) ,1)>=UBv)) 
umat (1,i)=1; 
end 
end 
nmat=nemat; Blocked=randperm(N); [pc,cord,tsries]=perc(N,1mat,umat ,nmat) ; 
4 cep 
clear all; sz=9; nx=5; ny=5; nz=5; r=1; tmp=sqrt(2)*r; 


dx=(0,2*r,4*r]; dy=(0,2*r,4+*r]; dz=[0,tmp,2*tmp] ; 
dimi=max(dx); dim2=max(dy); dim3=max(dz) ; 


q=[1,231,331,5;1,6;2,5;3,5;4,5;5,6;5,7;5,8;5,9]; m=[1,3,1,3,2,1,3,1,3]; 
n=[1,1,3,3,2,1,1,3,3]; z=[1,1,1,1,2,3,3,3,3];0=[1,2,3,4,5,6,7,8,9]; 
ii=[1,23;3,4;6,7;8,9]; iii=[1,3;2,4;6,8;7,9]; v=[1,652,7;3,834,9]; 


in2=[]; in3=[]; ind=0; 


§ A.31 Effects of channelling 


a 
CO ONDARWNEH 


11 


4 chl.m, effect of channelling, (c) Kit Tiyapan 17 December 2002 
clear all; rand(’state’,sum(100*clock)); can=1000; ca=rand(can,3); 
[va,vca]=voronoin(ca); van=size(va,1); tmv=sparse(1,van) ; 
for i=1:van, 
if ((max(va(i,:))<1)&(min(va(i,:))>0)) 
tmv(i)=1; 
end 
end 
vean=[]; ca=[]; 
for i=1:can, 
tmn=size(vca{i},2); in=1; 
for j=1:tmn, 
tma=tmv(vca{i}(j)); 
if (~tma) 
in=0; 
end 
end 
if (in) 
tmp=[]; 
for j=1:tmn, 
tma=va(vca{i}(j),:); tmp=[tmp;tma] ; 
end 
tmd=delaunayn(tmp); tmn=size(tmd,1); tmk=[]; 
for j=1:tmn, 
tma=[]; 
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for k=1:4, 
tmb=tmp(tmd(j,k),:); tma=[tma;tmb] ; 

end 
tma=sum(tma,1)/4; tmk=[tmk;tma]; 

end 

tmk=sum(tmk,1)/tmn; ca=[ca;tmk]; 

end 
end 


tma=min(min(ca)); tmb=max(max(ca)); tmr=tmb-tma; ca=(ca-tma*ones(size(ca)))/tmr; 
can=size(ca,i); [va,vca]=voronoin(ca); van=size(va,1); vcan=[]; 
for i=1:can, 
vcan=[vcan,size(vca{i},2)]; 
end 
cvm=[]; 
for i=1:can, 
tma=ones(1,vcan(i)); cvm=[cvm;sparse(tma,vca{i},tma,1,van)]; 
end 
ncc=sparse(can,can) ; 
for i=1:(can-1), 
for j=(it1):can, 
tma=sum(cvm(i,:)&cvm(j,:)); 
if (tma) 
nec(i,j)=1; nec(j,i)=1; 
end 
end 
end 
tmv=sparse(1,van) ; 
for i=1:van, 
if ((max(va(i,:))<1)&(min(va(i,:))>0)) 
tmv(i)=1; 
end 
end 
tmc=sparse(1,can) ; 
for i=1:can, 
in=1; 
for j=i:vcan(i), 
tma=tmv(vca{i}(j)); 
if (~tma) 
in=0; break; 
end 
end 
if (~(in-1)) 
tmc(i)=1; 
end 
end 
c=[]; cnt=0; 
for i=1:can, 
if (tmc(i)) 
ent=cntti; c=[c;ca(i,:)]; tmc(i)=cnt; 
end 
end 
cn=size(c,1); necc=sparse(cn,cn); [tma,tmb]=find(triu(ncc)); tmn=size(tma,1); 
for i=1:tmn, 
tmp=tmc(tma(i)); tmgq=tmc(tmb(i)) ; 
if (tmp&tmq) 
necc(tmp,tmq)=1; necc(tmq,tmp)=1; 
end 
end 
% cells 
tma=min(c(:,1)); tmb=max(c(:,1)); tmr=tmb-tma; tmd=tmr+.1; 1lb=tmattmd; 
ub=tmb-tmd; A=c; N=size(A,1); lmat=sparse(1,N); umat=sparse(1,N) ; 
for i=1:N, 
if (A(i,1)<=1b) 
lmat (1,i)=1; 
elseif (A(i,1)>=ub) 
umat (1,i)=1; 
end 
end 
NeMat=necc; Blocked=randperm(cn); [pc,cord,tsries]=perc(N,1mat,umat ,NeMat) ; 
4% cells rivulets, steepest input 
b=]; cnt=0; [tma,tmb]=find(necc) ; tmn=size(tma,1); 
for i=1:tmn, 
cnt=cnt+1; tmp=c(tma(i),3); tmq=c(tmb(i) ,3); 


if (tmp>tmq) 
b(cnt,1)=tma(i); b(cnt,2)=tmb(i); 
else 
b(cnt ,1)=tmb (i) ;b(cnt ,2)=tma(i); 
end 
end 


bn=size(b,1); 
for i=1:bn, 
tma=c(b(i,1),1:2); tmb=c(b(i,2) ,1:2); tmd=sum((tma-tmb) .*2).70.5; 
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tma=c(b(i,1),3)-c(b(i,2) ,3); tmb=tma/tmd; tma=atan(tmb); b(i,3)=tma; 
end 
tmz=b(:,2:3); tmw=zeros(i,cn); tmx=zeros(1,cn); 
for i=1:bn, 


tma=tmz(i,1); 
if (tmz (i, 2) >tmw(tma) ) 
tmw(tma)=tmz(i,2); tmx(tma)=tmz(i,1); 
end 
end 
tma=sortrows([tmw’,tmx’],1); tmx=tma(:,2)’; 


for i=1:cn, 
if (tmx (i)) 
tmn=i-1; tma=tmx(i); 
break; 
end 
end 
tmx (1,1:tmn)=tma*ones(1,tmn); tma=min(c(:,1)); tmb=max(c(:,1)); tmr=tmb-tma; tmd=tmr+.1; 
lb=tmattmd; ub=tmb-tmd; A=c; N=size(A,1); lmat=sparse(1,N); umat=sparse(1,N) ; 
for i=1:N, 
if (A(i,1)<=1b) 
lmat (1,i)=1; 
elseif (A(i,1)>=ub) 
umat (1,i)=1; 
end 
end 
NeMat=necc; [pc,cord,tsries]=perd(N,1lmat, umat ,NeMat ,tmx) ; 
4 cells rivulets, max. sum sign 
tmw=[b(:,1),b(:,3)]; tmx=zeros(1,cn) ; 
for i=1:bn, 
tma=tmz(i,1); tmb=tmw(i,1); tmx (tma) =tmx(tma)+tmz(i,2); 
tmx (tmb) =tmx (tmb) -tmw(i,2); 
end 
tma=[1:cn;tmx]’; tmx=sortrows(tma,2); tmx=tmx(:,1)’; tma=min(c(:,1)); 
tmb=max(c(:,1)); tmr=tmb-tma; tmd=tmr*.1; lb=tmattmd; ub=tmb-tmd; A=c; 
N=size(A,1); lmat=sparse(1,N); umat=sparse(1,N) ; 
for i=1:N, 
if (A(i,1)<=1b) 
lmat (1,i)=1; 
elseif (A(i,1)>=ub) 
umat (1,i)=1; 
end 
end 
NeMat=necc; [pc,cord,tsries]=perd(N,1lmat,umat ,NeMat ,tmx) ; 
% cells, combined 
for i=1:bn, 
tma=c(b(i,1),:); tmb=c(b(i,2),:); tmd=sum((tma-tmb) .72).°0.5; tmd=tmd/2; b(i,4)=tmd; 
end 
cb=(]; 
for i=1:cn, 
ceb{i,3}=[]; cb{i,4}=0; 
end 
for i=1:can, 
if (inc (i)) 
tmp=[]; 
for j=i:vcan(i), 
tma=va(vca{i}(j),:); tmp=[tmp;tma] ; 
end 
tmd=delaunayn(tmp); tmn=size(tmd,1); tmb=0; 
for j=1:tmn, 
tma=([tmp(tmd(j,1),:);tmp(tmd(j,2) ,:) ;tmp(tmd(j,3) ,:) ;tmp(tmd(j,4),:)]; 
tmq=abs (det ([tma,ones(4,1)]))/6; tmb=tmbttmq; 
end 
cb{inc(i) ,1}=tmb; 
end 
end 
for i=1:bn, 
tma=b(i,1); cb{tma,3}=[cb{tma,3},i]; 
end 
for i=1:cn, 
cb{i, 2}=size (cb{i,3},2) ; 
end 
for i=1:cn, 
tmt=0; 
for j=1:cb{i,2}, 
tma=b(cb{i,3}(j) ,3); tmt=tmt+tma; 
end 
for j=i:cb{i,2}, 
tma=b(cb{i,3}(j) ,3)/tmt; cb{i,4}=[cb{i,4},tma] ; 
end 
end 
res=1000; map=zeros(res,res); cr=c*res; vr=va*res; z=max(max(cr))*.9; cin=zeros(1,cn) ; 
for i=1:can, 
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190 if (inc(i)) 


191 cin(inc(i))=i; 
192 end 
193 end 


194 mac=sparse(res,res) ; 

195 for i=1:cn, 

196 = tmp=[]; 

197 = for j=1:vcan(cin(i)), 

198 tma=vr (vca{cin(i)}(j),:); tmp=[tmp;tma]; 

199 end 

200 tmh=convhulln(tmp); tmn=size(tmh,1); tmj=([]; tmj{i,2}=[]; tmj{i,1}=0; 
201 for j=1:tmn, 


202 tmg=[] ; 

203 for k=1:3, 

204 tma=tmp (tmh(j,k),:); tmq=(tmq;tma] ; 

205 end 

206 tma=max(tmq(: ,3)); tmb=min(tmq(: ,3)); 

207 in=0; 

208 if ((tma>z) & (tmb<z) ) 

209 in=1; tma=[tmq(1,:);tmq(2,:)]; tmb=max(tma(:,3)); tmc=min(tma(:,3)); tmt=(]; 
210 if ((tmb>z) & (tmc<z) ) 

211 tmt{i}=tma; tma=[tmq(1,:);tmq(3,:)]; tmb=max(tma(:,3)); tmc=min(tma(:,3)); 
212 if ((tmb>z) & (tmc<z) ) 

213 tmt{2}=tma; 

214 else 

215 tmt{2}=[tmq(2,:) ;tmq(3,:)]; 

216 end 

217 else 

218 tmt{1}=[tmq(1,:);tmq(3,:)]; tmt{2}=[tmq(2,:) ;tmq(3,:)]; 

219 end 

220 end 

221 if (in) 

222 tmi=[]; 

223 for k=1:2, 

224 xi=tmt{k}(1,1); x2=tmt{k}(2,1); yl=tmt{k}(1,2); y2=tmt{k}(2,2); zi=tmt{k} (1,3); 
225 z2=tmt{k}(2,3); x12=x2-x1; yi2=y2-y1; z212=z2-z1; t=(z-z1)/z12; x=x1+x12+t; 
226 y=yity12*t; tmi=[tmi;x,y]; imjti. or=[émi (lth 91 tmj{i,1}=tmj{i,1}4+1; 
227 end 

228 xi=tmi(1,1); yl=tmi(1,2); x2=tmi(2,1); y2=tmi(2,2); x12=x2-x1; y12=y2-y1; 
229 tmi=0.1; tma=sign(y2-y1); tms=tmi*tma; tme=abs(y2)-tmi*tma; 

230 for k=y1:tms:tme, 

231 x=round(x1+(k-y1)*x12/y12); map(x,round(k))=1; 

232 end 

233 tma=sign(x2-x1); tms=tmi*tma; tme=abs (x2) -tmi*tma; 

234 for k=x1:tms:tme, 

235 y=round (y1+(k-x1)*y12/x12); map (round(k) ,y)=1; 

236 end 

237 map (round (x2) ,round(y2) )=1; 

238 end 

239 end 

240 = if (tmj{i,1}) 

241 tma=sum(tmj{i,2},1)/tmj{i, 1}; 

242 tma=round (tma) ; 

243 mac(tma(1),tma(2))=i; 

244 end 

245 end 


246 maq=map; 
247 for i=l:res, 
248 maq(i,res)=-1; maq(i,1)=-1; maq(res,i)=-1; maq(1,i)=-1; 


249 end 

250 cnt=1; 

251 cnc=[]; 

252 for j=2:(res-1), 

253 i=1; 

254 while (i<res) 

255 tmp=[]; 

256 i=it1; 

257 while (~maq(i, j)) 

258 tmp=[tmp,i]; i=it+1; 
259 end 

260 tmn=size (tmp, 2) ; 

261 if (tmn) 

262 tmc=0; 

263 for k=1:tm, 

264 tma=maq(tmp(k) , (j-1)); 
265 if (tma-1) 

266 tmc=tma; break; 
267 end 

268 end 

269 if (“tmc) 

270 cnt=cnt+1; tmc=cnt; 


271 end 
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for k=1:tmn, 
maq(tmp(k) , j)=tmc; 
end 
end 
end 
end 
[tmi,tmj, tmk]=find(mac) ; 
tmn=size(tmi,1); 
tml=[]; 
for i=1:tmn, 
tma=maq(tmi(i) ,tmj(i)); tml=[tm1;tma] ; 
end 
sc=zeros(1,cnt); 
for i=1:tmn, 
sc(tml1 (i) )=tmk (i) ; 
end 
for i=1:res, 
for j=i:res, 
if (maq(i,j)>1) 
tma=tmk (sc(maq(i,j))); maq(i,j)=tma; 
end 
end 
end 
clf; hold on; 
for i=1:20:res, 


tma=[(i-5), (i+5), (it5) , (1-5) 1; 
for j=1:10:res, 
tmb=[(j-5) , (3-5) , (j+5) , (j+5) 1; tmc=maq(i,j); fill (tma,tmb,tmc) ; 
end 
end 
axis equal; 
axis off; 
4 map section to cell 


[tma,tmb]=find(triu(necc)); 
tmn=size(tma,1); 
tmx=[]; % top cells 
for i=1:tmn, 
tmp=[cr(tma(i) ,:) ;cr(tmb(i),:)]; tmq=max(tmp(:,3)); tmr=min(tmp(: ,3)); 
if ((tmq>z) & (tmr<z) ) 
tmp=sortrows(tmp,3); tmx=[tmx;tmp(1,:)]; 
end 
end 
tmm=size(tmx,1); 
tmp=[]; 
for i=1:cnt, 
tmp{i,2}=[]; tmp{i,1}=0; 
end 
tmn=100; 
for i=1:res, 
for j=i:res, 
tma=maq(i,j); 
if (tmati) 
if (tma& (tma-1) & (tmp{tma, 1}<tmn) ) 
tmp{tma, 2}=[tmp{tma,2};i,j]; tmp{tma,1}=tmp{tma,1}+1; 
end 
end 
end 
end 
tmy=zeros(cnt,3); % grid from sect 
for i=1:cnt, 
tma=sum(tmp{i,2},1)/tmp{i,1}; tmy(tma,:)=[tma(1) ,tma(2) ,z]; 
end 
tmn=size(tmy,1); tmp=zeros(tmm,tmn) ; 
for i=1:tmn, 
for j=1:tmn, 
tmp (i, j)=sum((tmx(i,:)-tmy(j,:)).72).70.5; 
end 
end 
gc=zeros(1,tmn) ; 
for j=2:tmn, 
tma=[]; 
for i=1:tm, 
tma=[tma;i,tmp(i,j)]; 
end 
tma=sortrows(tma,2); gc(j)=tma(1,1); 
end 
tmy=zeros(cnt,3); % grid from sect 
for i=1:20:res, 
for j=1:20:res, 
tma=maq(i,j); 
if (tmati) 
if (~tmy (tma) ) 
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354 tmy(tma,:)=[i,j,z]; 

355 end 

356 end 

357 end 

358 end 

359 tmn=size(tmy,1); tmp=zeros(tmm,tmn) ; 
360 for i=1:tmn, 

361 for j=1i:tm, 

362 tmp(i,j)= sum( (tmx (i, :) -tmy(j,:)).°2). 
363 end 

364 end 

365 for j=2:tmn, 

366 ~=©6 tma=[]; 

367 for i=1:tmn, 

368 tma=[tma;i,tmp(i,j)]; 

369 end 

370 tma=sortrows(tma,2); gc(j)=tma(1,1); 
371 end 

372 % look at each sectional cell 

373 tmp=sparse(res,res); tma=8; 

374 for i=1:res, 
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for j=l:res, 
if(~ (emanapi Gi, j))) 
tmp(i,j)=1 
end 
end 
end 
% which link which section? 
mapi=map; 
[tma,tmb]=find(triu(necc)); 
tmn=size(tma,1); 
for i=1:tmn, 
tmp=[cr(tma(i) ,:) ;cr(tmb(i), 
if ((tmq>z) & (tmr<z) ) 
xi=tmp(1,1); x2=tmp(2,1); 
x12=x2-x1; y12=y2-y1; 
mapi (round (x) ,round(y))=1; 
end 
end 
% or this? 
mapi=map; 
[tma,tmb]=find(triu(necc)); 


yi=tmp(1,2); 


tmn=size(tma,1); 


:)]; tmq=max (tmp(: 
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23)); 23))5 


tmr=min(tmp(: 


y2=tmp(2,2); zi=tmp(1,3); z2=tmp(2,3); 
z12=z2-z21; t=(z-z1)/z12; x=x1+x12*t; y=yl+y12+t; 


y2=round (tmp (2,2) ); 


tss=sparse(van,van) ; 


tma=[tmp (tmh(j, 1) ,4) ,tmp(tmh(j,3) ,4)]; 
tma= [tmp (tmh (j, 2) ,4) , tmp (tmh(j, 3) ,4)]; 


396 for i=1:tmn, 

397. tmp=Ecr(tma(i),:) ;cr(tmb(i),:)]; 

3908 xi=round(tmp(1,1)); x2=round(tmp(2,1)); y1=round(tmp(1,2)); 
399 mapi(x1,y1)=1; map1(x2,y2)=1; 

400 end 

401 % test, successful, ie. all its faces completely cover the hull leaving no gaps 
402 tst=(]; 

403 for i=1:cn, 

404 tmp=(]; 

405 for j=1:vcan(cin(i)), 

406 tma=vr(vca{cin(i)}(j),:); tmp=[tmp;tma, vca{cin(i)}(j)]; 
407 end 

408 tmh=convhulln(tmp(: ,1:3)); tmn=size(tmh, 1); 

409 for j=1i:tm, 

410 tma= [tmp (tmh (j, 1) ,4) ,tmp(tmh(j,2),4)]; tma=sort (tma) ; 
411 tss(tma(i), tma(2)) =tss(tma(1), tma(2)) +1; 

412 tma=sort (tma) ; tss(tma(1) ,tma(2))=tss(tma(1), tma(2))+1; 
413 tma=sort (tma) ; tss(tma(1) ,tma(2))=tss(tma(1) ,tma(2))+1: 
414 end 

415 [tma,tmb,tmc]=find(tss); tma=min(tmc) ;tst=[tst,tma] ; 

416 end 


§ A.32 Stereographic projection 


o71,13;-1,1,1;-1,1 
28); 


wed: 


1% stp.m, stereographic projection, (c) Kit Tiyapan, January 2002 
2 clear all; R=2; V=L1,-1,-13;1,-1,1;1,1,1;1,1,-1;-1,-1,-1;-1 

3 VWN=size(V,1); E=[1,23;2,3;3,4;1,4;5,6;6,7;7,8;5,8;1,5;2,6;3,7;4 

4 EN=size(E,1); Res=100; El=0; 

5 for i=1:EN, 

6 El{i,i}=O; 

7 end 

8 for i=1:EN, 

9 x1=V(E(i,1),1); yi=V(E(i,1),2); zi=V(E(i,1),3); x2=V(E(i,2),1); 


10 z2=V(E(i,2) ,3); 
11 for t=0:(1/Res) :1, 


end 
14 end 


y2=V(E(i,2) ,2); 


dx=x2-x1; dy=y2-y1; dz=z2-z1; d=sqrt (dx*dxtdy+dy+dz*dz) ; 


x=xiltdx+t; y=yltdy+t; z=zi+dz+t; El{i,1}=(El{i,1};x,y,z]; 
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vi=O; V2=0]; HO; 

for i=1:VN, 
x=V(i,1); y=V(i,2);  z=V(i,3); d=sqrt (x*x+y*+y+z*z); t=R/d; 
xi=x*t; yl=y*t; zi=z+*t; V1i=(Vi;x1,y1,z1]; x2=0; y2=0; 


if (z1>=0 

z2=-R; H=[H;0]; 
else 

z2=R; H=(H;1]; 
end 


I=x2-x1; J=y2-y1; K=z2-z1; z3=0; di=z3-z1; t=d1/K; 
x3=x1itI*t; y3=yitJ+t; V2=[(V2;x3,y3,z3]; 


end 

Es=[]; Ei=—]; E2=01; He=01; 

for i=1:EN, 
Es{i,i}=[]; E1{i,1}=0); E2{i,1}=01; Hefi,1}-0; 
d 

for i=1:EN, 


for j=1:(Rest+1), 
x=E1{i,1}(j,1);  y=E1{i,1}(j,2);  z=El{i,1}(j,3); d=sqrt(x*xty*y+z*z) ; 
t=R/d; xi=x+t; yl=y*t; zi=z*t; 
E1{i,i}=[E1{i,1};x1,y1,z1]; x2=0; y2=0; 


if (z1>=0) 

z2=-R; He{i,1}=[He{i,1};0]; 
else 

z2=R; He{i,i}=(He{i,1};1]; 
end 


I=x2-x1; J=y2-y1; K=z2-z1; z3=0; di=z3-z1; t=d1/K; x3=x1it+I-*t; 
y3=yit+J+t; E2{i,1}=[E2{i,1};x3,y3,z3]; 
end 
end 
n=12; 
Co=[]; Tmp=[]; 
for i=0:(pi/Res):pi, 
x=R*cos(i); y=R*sin(i); Co=[Co;x,y,0]; 
end 
CN=size(Co,1); C=[]; count=0; TmpA=[Co,ones(CN,1)]; 
for t=(pi/n) : (pi/n) : (pi-pi/n) , 
rx=[1,0,0,0; 0,cos(t),-sin(t) ,0; O,sin(t) ,cos(t),0; 0,0,0,1]; 
count=count+1; C{count,1i}=(rx*TmpA’)’; 
end 
Ct=count; Ci=(]; 
for i=1:Ct, 
c1ifi,1}=0; 
end 
for i=1:Ct, 
Ci{i,1}=[C1{i,1};TmpA(1,1) ,TmpA(1,2) ,TmpA(1,3)]; 
for j=2:(CN-1), 
x=C{i,1}(j,1); y=Cf{i,1}(j,2); z=C{i,1}(j,3); x1=0; y1=0; z1=-R; 
I=x1i-x; J=yi-y; K=z1-z; z2=0; d=z2-z; t=d/K; x2=x+tI*t; y2=y+J*t; 
C1if{i,1}=(C1{i,1};x2,y2,z2]; 


end 
C1{i,1}=[C1i{i,1};TmpA(CN,1) ,TmpA(CN,2) ,TmpA(CN,3)]; 
end 
Co=[]; 
for i=(-pi/2): (pi/Res) : (pi/2), 
x=R*cos(i); y=R*sin(i); Co=[Co;x,y,0]; 
end 
CN=size(Co,1); count=0; 
TmpA=[Co, ones(CN,1)]; 
for t=(pi/n) : (pi/n) : (pi-pi/n) , 
ry=[cos(t) ,0,-sin(t),0; 0,1,0,0; sin(t) ,0,cos(t),0; 0,0,0,1]; 
count=countt+i; C{(Ct+count) ,1}=(ry*TmpA’)’; 
end 
for i=(Ctt1i) :(Ct+count) , 
c1fi,1}=0; 
end 
for i=(Ctt1i) :(Ct+count) , 
C1{i,1}=(C1{i,1};TmpA(1,1),TmpA(1,2) ,TmpA(1,3)]; 
for j=2:(CN-1), 
x=C{i,1}(j,1); y=C{i,1}(j,2); z=C{i,1}(j,3); x1=0; yi=0; z1l=-R; I=x1-x; J=y1-y; 
K=z1-z; z2=0; d=z2-z; t=d/K; x2=x+tI*t; y2=yt+J+t; Orta, = [cli 1}3x2,72,221; 
end 
C1{i,1}=[C1i{i,1};TmpA(CN,1) ,TmpA(CN,2) ,TmpA(CN,3)]; 
end 
Ct=Ctt+count; Ct=Ct+1; Ci{Ct,1}=Co; Tmp=[-Co(:,1) ,Co(:,2:3)]; Ct=Ctt+1; C1{Ct,1}=Tmp; 
clf; hold on; 
for i=1:Ct, 
for j=1:(CN-1), 
if (mod(j ,3)>1) 
tma=[C1{i,1}(j,1) ,C1{i,1} ((j+1) ,1)]; 
tmb=(Cif{i,1}(j,2) ,C1{i,1} ((j+1) ,2)]; 
tmc=[C1{i,1}(j,3) ,C1{i,1} ((j+1) ,3)]; 
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plot3(); 
end 


end 
axis off; axis equal; clf; hold on; % for below, E2 may be replaced by E1 and El 
for i=1:VN, 
if (H(i,1)) 
plot3(V2(i,1) ,V2(i,2) ,V2(i,3),’0’); 
else 
plot3(V2(i,1) ,V2(i,2) ,V2(i,3),’.’); 
end 
end 
for i=1:EN, 
for j=1:Res, 
if (He{i,1}(j,1)) 
tma=[E2{i,1}(j,1) ,E2{i,1} ((jt+1) ,1)];m tmb=(E2{i,1}(j,2) ,E2{i,1} ((jt+1) ,2)]; 
tmc=[E2{i,1}(j,3) ,E2{i,1} ((j+1) ,3)]; 
if (mod (j ,8) >3) 
plot3(tma,tmb,tmc,’--’); 
end 
else 
plot3(tma,tmb,tmc) ; 
end 
end 
end 
for i=(Ct-1) :Ct, 
for j=1:(CN-1), 
tma=[C1{i,1}(j,1) ,Cifi,1}((j+1),1)]; tmb=(C1f{i,1}(j,2) ,ci{i, 1} ((j+1) ,2)]1; 
tmc=(C1{i,1}(j,3) ,C1{i,1} ((jt+1) ,3)]; plot3(tma,tmb,tmc) ; 
end 
end 
axis off; axis equal; clf; hold on; 
for i=1:EN, 
for j=1:Res, 
if (mod(j ,5)>2) 
tma=[E1{i,1}(j,1) ,E1{i,1} ((j+1) ,1)]; 
tmb=[E1{i,1}(j,2) ,E1{i,1} ((j+1) ,2)]; 
tmc=[E1{i,1}(j,3) ,E1{i,1} ((j+1) ,3)]; 
plot3(tma,tmb,tmc) ; 
end 
if (mod(j ,7)>2) 
plot3(tma,tmb,tmc) ; 
end 
plot3(tma,tmb,tmc) ; 
end 
end 
axis off; axis equal; rotate3d; 
4 for future developments 
tx=.2; ty=.1; tz=.3; Vo=V; Tmp=ones(VN,1); V=Vot[tx*Imp, ty*Tmp, tz*Tmp]; 
Vio=V1; V20=V2; Ho=H; Elo=El1; Eso=Es; Elo=E1; E2o=E2; Heo=He; 
a=.3; b=.4; c=sqrt(1-a*a-b*b) u=[a,b,c]; t=.5; q=[u*sin(t) ,cos(t)]; 
x=q(1,1); y=q(1,2); z=q(1,3); w=q(1,4); tma=[(1-2* (y+y+z*z)) , (2*(x*y-w*z)) , (2*(x*ztwty))]; 
tmb=[(2* (x*yt+w*z) ) , (1-2* (x¥xtz*z)) , (2* (y#z—-wtx) )]; 
tmc=[(2* (x#z-wty)) , (2* (y#ztwtx)) , (1-2* (x#xty*y))]; M=[tma;tmb;tmc]; V=(M*Vo’)?’; 
x1=Vo(3,1); y1i=Vo(3,2); m=sqrt(x1l*xityi*y1); cl=x1/m; si=y1/m; c2=1; s2=0; 
t=atan ((c2#sl+c1*s2)/(c1*c2+si*s2)); TmpA=cos(t); TmpB=sin(t); rz=[TmpA,-TmpB,0,0; 
TmpB ,TmpA,0,0; 0,0,1,1; 0,0,0,1]; hold on; 
for i=1:(Ct-2), 
TmpA=[C1i{i,1},ones(CN,1)]; Tmp=(rz*TmpA’)’; 
for j=1:(CN-1), 
if (mod(j ,3)>1) 
plot3([Tmp(j,1),Tmp((j+1) ,1)], [Tmp(j,2) ,Tmp((j+1) ,2)], [Tmp(j,3) , Tmp((jt1) ,3)],’-.’); 
end 
end 
end 


§ A.33 Percolation of regular polygons in two dimensions 


ANaDoahwNre 


4 ppgk.m, threshold area ratio (27k), Kit Tiyapan, (c) 20th November, 2002 
clear all; rand(’state’,sum(100*clock)); n=5; sz=10; k=4; stp=27k; wen=1; num=0; 
cnt=0; x=[]; rad=[]; ang=2*pi/n; tpi=2*pi; r=sqrt(1/(n*sin(ang/2)*cos(ang/2) )) ; 
while wen 
cnt=cnt+1; num=numtstp; x=[x;sz*rand(stp,2)]; rad=[rad;tpi*rand(stp,1)]; 
for i=(num-stpt1) :num, 
for j=0:(n-1), 
tmp=rad(i,1)+j*ang; vf{it{1, (j+1)}=[(x(i,1) +r*cos (tmp) ) , (x(i,2)+r+*sin(tmp))]; 
end 
end 
figure(cnt);clf; hold on; 
for i=1i:nun, 


